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4.0 uses logical 
units for separate 
compilation 


Pascal 4.0 lets you 
break up the code gang into 
“units,” or “chunks.” These 
logical modules can be 
worked with swiftly and 
separately—so that an 
error in one module is 
seeable and fixable, and 
you re not sent through all 
your code to find one error. 
Compiling and linking these 
separate units happens in a 


Te 


Please check box(es) Sugg. Retail Upgrade Pricet Serial No. 
O Turbo Pascal 4.0 Compiler $ 99.95 $ 39.95 
QO Turbo Pascal 4.0 Developer’s Library 395.00 150.00 
(Includes Turbo Pascal Tutor and all Toolboxes; must be ordered with Compiler) 
O Turbo Pascal Tutor 69.95 19.95 
O Turbo Pascal Database Toolbox 99.95 29.95 
QO Turbo Pascal Graphix Toolbox 99.95 29.95 
O Turbo Pascal Editor Toolbox 99.95 29.95 
QO Turbo Pascal Numerical Methods Toolbox 99.95 29.95 
O Turbo Pascal Gameworks 99.95 29.95 
Total product amount $ 
CA and MA residents add sales tax $ 
Shipping and handling* $ 
Total amount enclosed $ 
Please specify diskette size: 0 514” O 3%” Payment: O VISA OMC O Check O Bank Draft 


Credit card expiration date; ____—_/ 


flash because your compil- 
ing horsepower is better 
than 27,000 lines a min- 
ute.* And 4.0 also includes 
an automatic project Make. 


4.0’s cursor 
automatically lands 
on any trouble spot 


4.0’s interactive error 
detection and location 
means that the cursor 
automatically lands where 
the error is. While you’re 
compiling or running a 
program, you get an error 
message at the top of your 
screen and the cursor flags 


the error’s location for you. 


4.0 gives you an 
integrated program- 
ming environment 


4.0’s integrated environ- 
ment includes pull-down 


menus and a built-in editor. 


Your program output is 
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“In US please add $5 shipping for each product ordered or $15 for the Compiler and Developer's Library. Outside US please add $10 shipping and handling for each 


product ordered or $25 for the Compiler and Developer's Library. 
tTo qualify for the upgrade price you must give the serial number of the 


equivalent product you are upgrading. 


an ever before! 


automatically saved and 
shown in the output 
window. You can Scroll, 
Pan, or Page through all 
your output and know 
where everything is all the 
time. Given 4.0’s integra- 
tion, you can edit, compile, 
find and correct errors—all 
from inside the integrated 
development environment. 


You'll never lose your 
mind, because 4.0 
never loses your place 


Whenever you re-load 4.0, 
it remembers what you and 
it were doing before you 
left. It puts you right back 
in the editor with the same 
file and in the same place 
as you were working last. 


*Run on an 8 MHz IBM AT. 


“If within 60 days of purchase this product does not perform in 
accordance with our claims, call our customer service department, and 
we will arrange a refund. 


All Borland products are trademarks or registered trademarks of Bor- 
land International, Inc. Other brand and product names are trademarks 
or registered trademarks of their respective holders. 
Copyright © 1987 Borland International, Inc. 
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Handle: 
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RecSize: Word; 
Private: arrayll1..26) of 
UserData: array([{1..16)] 
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Program in the 
fast lane with 
Borland’s new 
Turbo Pascal 4.0. 


The fast lane is fas 


ur new Turbo 

Pascal® 4.0 is so 

fast, it’s almost 
reckless. How fast? 
Better than 27,000 lines 
of code per minute. That’s 
much faster than 3.0 or 
any other Pascal compiler 
and the reason why you 
need 4.0 today. 


Pascal. The fastest 
and the best. 


If you're just now 
learning a computer lan- 
guage, learn Pascal. If 
you re already program- 
ming in Pascal, you're 
programming with a 
winner because Pascal is 
the worldwide language 
of choice. Pascal is the 
most popular language 
in university computer 
science classes and with 
computer enthusiasts 
who appreciate Pascal’s 
modern anceanie 


weeks for delivery of Toolboxes. 





YES 


Pascal 4.0 Upgrade Dept. 
Borland International 
4585 Scotts Valley Drive 
Scotts Valley, CA 95066 


structure. It’s powerful, 
coherent, easy to learn 
and use—and with Turbo 
Pascal 4.0—faster than 
ever before. 


Turbo Pascal: 
Technical excellence 


Commitment to tech- 
nical excellence and 





superiority also means 
commitment to detail, 
however painstaking, and 
that takes time. 4.0’s pre- 





Name 
Ship Address 
City 
Zip 


Outside U.S. make payments by bank draft payable in U.S. dollars drawn on a U.S. bank. CODs and purchase orders will not be accepted by Borland. 


decessor, Turbo Pascal 
3.0 is the worldwide 
standard, and with Turbo 
Pascal 4.0, we ve bet- 
tered that standard. 4.0 is 
Clearly the world’s fastest 
development tool for the 
IBM® PS/2 series, PC’s 
and compatibles—and the 
world’s favorite Pascal 
compiler. 


4.0 breaks the 
code barrier 


No more swapping 
code in and out to beat 
the 64K code barrier. 
Designed for large pro- 
grams, Turbo Pascal 4.0 
lets you use every byte of 
memory in your compu- 
ter. You paid for all that 
memory, now you can use 
it freely. 


For the IBM PS/2 and the IBM and 
Compaq families of personal computers 
and all 100% compatibles. 


1. I want to upgrade to Turbo Pascal 4.0 
@ and the 4.0 Toolboxes 


Registered owners have been notified by mail. If you are a registered Turbo Pascal user and 
have not been notified of Version 4.0 by mail, please call us at (800) 543-7543. To upgrade if 
you have not registered your product, just send the original registration form from your manual 
and payment with this completed coupon to: 





State 


Telephone ( ) 


This offer is limited to one upgrade per valid registered product. It is good until November 30, 1987. Not good with any other offer from Borland. Please allow 4 to 6 
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Nows the time 
for a fast decision: 
Upgrade now to 4.0! 


Compatibility with 
Turbo Pascal 3. 


= Interactive error 
detection /location 
We've created 4.0 to = Includes a command line 


e highly compatible with version of the compiler 
version 3.0 and included a 4.0 also 
conversion program and = Saves output screen in a 
compatibility units to help window 
you convert all your 3.0 = Supports 25, 43 and 50 


lines per screen 
programs to 4.0. = Generates MAP files for 


; : debugging 
Seven of = Has graph units including 
Oriana Ss New CGA, EGA, VGA, MCGA, 
Turbo Pascal 4.0 3270 PC, AT & T 6300 & 

: Hercules support 
r Compiles 27,000 lines = Supports extended data 
per minute types (including word, long 
= Supports >64K programs integers 
= Uses units for separate = Does smart linking 
compilation = Comes with a free revised 
« Integrated development Micr posh eadsheet 
environment ee 


4.0 is all yours for only $99.95 
Sieve (25 iterations) 


ascal 4.0 - Turbo P seal 3.0 


Execution speed 9.3 seconds = 9.7 seconds 
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Sieve of Eratosthenes, run on an 8MHz IBM AT 


Since the source file above is too small to indicate a difference in compilation speed we compiled our GOMOKU program from Turbo Gameworks to give 
yOu a true sense of how much faster 4.0 really is! 


Compilation of GO.PAS (1006 lines) 







Turbo Pascal 4.0 
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Turbo Pascal 3.0 


3.6 seconds 










Compilation speed 











Lines per minute 






60-Day Money-Back Guarantee** 








For the dealer nearest 
you or to order call 


(800) 543-7543. 
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> Blaise puts the 
Accent on C with 


Enhance your Microsoft C programming environment with 
C TOOLS PLUS/5.0™—a new, quintessential library of C 
ions. C TOOLS PLUS/5.0 from Blaise Computing Inc. puts a prime 
_ quickly building professional applications using the full power of 
Version 5.0 and QuickC. Now you can concentrate on program 
by having full control over DOS, menus, interrupt service routines, 
ory resident programs, printer and keyboard control, and more! 


C TOOLS PLUS/5.0 prebuilt libraries are ready to use 
with either QuickC or the Microsoft C Version 5.0 com- 
"mand line environment. Complete documented source 
code is included so that you can study and adapt it to your 
specific needs. Blaise Computing’s attention to detail, like 
the use of full function prototyping, cleanly organized 
header files, and a comprehensive, fully-indexed manual, 
makes C TOOLS PLUS/5.0 the choice for experienced 
developers as well as newcomers to C. 


Continuous refinement of Blaise Computing’s library 
products has produced a collection of tools that are 
unsurpassed for reliability, functionality and ease of use. 
Built upon the widely acclaimed C TOOLS PLUS, 
C TOOLS PLUS/5.0 includes such highly-developed 
eatures as: 

























INTERVENTION CODE 
— Schedule C functions at specified times, inter- 


Windows; ISRs; ) : 
~ handling and EGA 43-line text mode suppo 


, cursor memory. 
Dt U \put, formatted output. 
f” window-oriented output. NEW! 







®INTERRUPT SERVICE ROUTINES 

— Capture DOS critical errors and keystrokes. 

— Install hardware interrupt handlers. 

RESIDENT SOFTWARE SUPPORT 

— Install, detect and remove memory resident 
programs. 


®MENUS 
— Horizontal and pulldown. 


NEW! 
— Lotus-style support. NEW! 








vals or with a “hot key’ NEW! 

— Take full advantage of DOS, even from memory 
resident programs. NEW! 

FAST DIRECT VIDEO ACCESS 

— All monitors, even EGA 43-line mode. 

PRINTER CONTROL 

— Access BIOS print functions. NEW! 

— Control the DOS PRINT utility. NEW! 

UTILITIES AND MACROS 

— Take advantage of DOS file structure. 

— Manipulate data types, far & near pointers. NEW! 

— Access any memory areas with fast “peek” and 
“poke” macros. NEW! 


- ferent languages; specify common data areas; _ 


: C TOOLS PLUS/5.0 supports the Microsoft C Version 5.0 and QuickC 
compilers, requires DOS 2.00 or later and is just $129.00. 













C ASYNCH MANAGER™ Version 2.0 IMPROVED! 
C ASYNCH MANAGER is a library of functions designed to help you 
incorporate asynchronous communication capabilities into your 
application programs. Version 2.0 has been rewritten especially for 
Microsoft C Version 5.0 and Borland’s Turbo C. Simultaneous 
buffered input and output to both COM ports at speeds up to 
9600 baud, XON/XOFF protocol, modem con- 
trol and XMODEM file transfer areamong ~Jle8- 

the many features supported and is priced at T yes\ Sen* 


Blaise computing Inc. hasafulllineofsupport 4 0 esidents 3 
products for both Pascal and C. Call today for your 4 SPS shipping: 





2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 ‘. ——— = 
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- LIGHT TOOLS : a8 
- Windows: ISRs: EGA 43-line text mode; __ 


a“awWw-™ fei m 
d me the p™ 
just $175.00. 1 Enclosed ST Fe 


free information packet. 
a yes 
BLAISE COMPUTING INC. 1 Visa or MCAS 







$129.00 
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direct screen access; DOS file ha 
more. For Turbo C. : 
Turbo POWER SCREEN : 
COMING SOON! General screen manage- 
ment: paint screens; block mode data entry 
or field-by-field control with instant screen 
access. For Turbo Pascal. 


Turbo POWER TOOLS PLUS $129.00 


Screen and window management including © 
EGA support: DOS memory control; ISRs; 
scheduled intervention code; and much more 
Now supports Turbo Pascal 4.0! a 


Turbo ASYNCH PLUS $129.00" 
Interrupt driven support for the COM ports. | 
I/O buffers up to 64K: XON/XOFF; up to — 
9600 baud: modem and XMODEM control. - 
Now supports Turbo Pascal 4.0! oe 


PASCAL TOOLS/TOOLS 2. $175.00: 


Expanded string and screen handling; graph- 
ics routines: memory management; general _ 

program control; DOS filesupportand more. 
For MS-Pascal. ? oo 
ASYNCH MANAGER $175.00. 
Full featured interrupt driven support for the 
COM ports. I/O buffers up to 64K; XON/ 
XOFF; up to 9600 baud; modem control and — 
XMODEM. For MS-Pascal. 2 
KeyPlayer $49.95 
“Super-batch” program. Create batch files __ 
which can invoke programs and provide 
input to them; run any program unattended; 
create demonstration programs; analyze key- 
board usage. 


EXEC os gee BOS ee 
NEW VERSION! Program chaining execu 
tive. Chain one program from another in dif- 


ndling and 


























less than 2K of overhead. 


RUNOFF: $49.95 


Text formatter for all programmers; flexible : S 


_ printer control; user-defined variables; index _ 


generation; general macro facility. Crafted | 
in Turbo Pascal. Ae 

direct screen access; DOS file handling and 
more. Forthe DatalightC compiler 


TO ORDER CALL TOLLFREE _ 
800-333-8087 Ee 


——_— 
e ace ntl copies er 
ur P for 
for { ie a 94 00 
















Microsoft Corporation. Qu 
is.a trademark of Microsoft Corporation. Tur. 
is a registered trademark of Borland Internati 
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OS/2 > Draeetie Linking in 08/2 18 





Dave explains one of the less explored aspects of OS/2— the 
built-in hooks for third-party extensions. 
A RAM-Cache Manager in C 

by Alan Deikman 

Alan provides a set of caching routines for optimizing program 


RAM-Caching > 30 


performance. 
EXE to ROM > | Putting ROM Code in its Place 38 
by Rick Naro 


Rick’s LOCATE utility lets you move code from DOS .EXE files 
to ROM environments. 
Integers Don't Float 
by Ray Mariella 

Ray investigates the tradeoff between speed and precision in 
some algorithms used for calculating square roots. 
A Graphics Toolbox for Turbo C—Part Il 

by Kent Porter 

Kent builds upon the library he offered last issue. This time 
the subject is text graphics: items like menu bars, pop-up 
windows, and pull-down menus. 


Faster Roots > 4s 


Text Graphics > 54 
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C CHEST 

by Allen Holub 
Allen presents a multitasking kernel that allows a program to 
run several subroutines as independent tasks. 
THE FORTH COLUMN 

by Martin Tracy 

News from the August ANSI Forth meeting as well as a set of 
Forth-83 words to extend string handling capabilities. 
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RUNNING LIGHT 8 mation on products. 

by Tyler Sperry OF INTEREST 154 
ARCHIVES 8 | Products for programmers 
LETTERS 10 | SWAINE’S FLAMES 160 
by you by Michael Swaine 
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About the Cover 
We'd like to be able to tell you 
that you could avoid all this OS 
documentation just by reading 
this single issue of DDJ. We'd 
like to, but we can't. The new 
trend in operating systems 
seems to be an entry require- 
ment of at least six months’ 
study. 











This Issue 
It’s the return of DDJ's infa- 
mous annual Operating Sys- 
tems issue. So why are you 
reading this instead of the 
articles listed on the left? 





















Next Issue 
January is DDJ’s annual 68K 
issue, and we're starting the 
new year off right with a new 
column devoted to advanced 
Mac hacking, er, programming. 
Plus a couple of other sur- 
prises. 
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Nobody ever said programming PCs was 
supposed to be easy. 


But does it have to be tedious and time- 
consuming, too? 

Not any more. 

Not since the arrival of the remarkable new 
program on the left. 

Which is designed to save you most of the 
time you're currently spending searching through 
the books and manuals on the shelf above. 

The Norton On-Line Programmer’s Guides™ 
are a quartet of pop-up reference packages that do 
the same things in four differ- 
ent languages. 

Each package consists of 
two parts: A memory-resident 

Instant Access™ program. 
And a comprehensive, 
cross-referenced database ~“™"'=, 
crammed with just about — 
everything you need to know to program in your 
favorite language. 


| when we say everything, we mean 
everything. 


Everything from information about language 


Designed for IBM® 







PC, PC-AT and DOS compatibles. Available at most software 








ATMOUNCES a 


Lf 
ee 


This, you're probably 
thinking, is precisely the 
kind of think ng that pro- 








syntax to a variety of 
tables, including ASCII 
characters, line draw- 





ing characters, error duced the classic Norton 
messages, memory Utilities”” 

usage maps, important And youre right. 
data structures and But even Peter Nor- 
MOre. A Guides reference summary Summary data expands on ton can't think of every- 

How much more? screen (shown in blue) pops up on command into extensive detail. ing. 

Well the databases « “? °"—iGinawee esa rege sor ili Which is why there’s 
for BASIC, C and Pas- a built-in compiler for 
cal give you detailed listings of all built-in and oraing databases of your own. 
library functions. And why all Guides databases are compatible 

While the Assembly database deliversacom- with the Instant Access program in your original 
plete collection of DOS service calls, interrupts package. 
and ROM BIOS routines. So you can add more languages without spend- 

You can, of course, find most of this informa- ing a lot more money. 
tion in the books and manuals on our shelf. To get more information, call your dealer. Or 

But Peter Norton—who’s written a few books call Peter Norton at 213-453-2361. 
himself—figured you'd rather have it on your And ask for some guidance. 
screen. 


In seconds. 3 : ( 
In full-screen or moveable half-screen mode. C for Norton- 


Popping up right next to your work. Right 
where you need it. COMPUTING 


dealers, or direct from Peter Norton Computing, Inc., 2210 Wilshire Blvd., #186, Santa Monica, CA 90403. 213-453-2361, Fax 213-453-6398, MCI Mail: PNCI © 1987 Peter Norton Computing 
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EDITORIAL 


DOS Ex 


ny month now, we'll be greeted 

with the official debut of Micro- 
soft's OS/2. It is, if you'll believe Bill 
Gates’ patter, the operating system 
weve all been waiting for. At long 
last, we'll have multitasking and 
large program support. So why 
aren't we all more _ enthusiastic 
about it? Why is it that, as we get 
closer and closer to actually having 
OS/2, the alternatives begin to look 
so much better? 

Some of this may be the result of 
the prolonged vaporware period. 
And some of it is no doubt the 
skepticism we normally feel at the 
introduction of any new software. 
In the case of OS/2, I think it’s fair to 
say that the critics have had plenty 
to work with. There are all those 
minor technical points you've heard 
before: it's not thoroughly debugged 
yet; it’s too fat; it’s too slow; it’s too 
expensive. Well, yes, true enough. 
But I'd like to remind everyone of a 
problem that dwarfs all those above. 

Simply put, OS/2 is too late. 

Note that I’m not talking about 
delays in shipping the product. Mi- 
crosoft has been pretty good on meet- 
ing the ship dates for its OS/2 Devel- 
oper Kits. No, what I’m talking about 
here is a critical marketing problem 
for OS/2: it's a dynamite product for 
a market that existed a couple of 
years ago. 

The problem, as you've no doubt 
noticed, is that the world just didn’t 
stop moving when the 80286 came 
along. As I write this, just weeks 
before Fall Comdex, there are sev- 
eral companies offering 80386 moth- 
erboard upgrades for XT owners. 
Intel is scheduled to announce their 
new Inboard 386/PC designed to fit 
into a normal PC. No _ toggle 


switches, no software tweaking. You 
just drop it in and your PC is an 
order of magnitude faster. (The RAM 
on the 386 card is well-used: some 











Machina 


for faster ROM BIOS access, and 
some for caching the hard disk.) 
And this for a price cheaper than 
you're used to seeing AT-clones sell 
for. 
given that 386 revolution is 
well under way, you have to wonder 
about the leadership demonstrated 
in Microsoft's introducing a 286- 
bound operating system when every- 
one is gearing up for the 386 revolu- 
tion. Probably the most telling in- 
dictment of Microsoft's strategy is 
the market's reaction to the intro- 
duction of its own Windows/386. Fore- 
casting the success and failure of 
software is always a tricky matter, 
but it seems reasonable to presume 
that Windows/386 will be vastly more 
successful than OS/2 over the short 
run. Indeed, the release of Windows/ 
386 before OS/2 with its Presentation 
Manager could be seen as Micro- 
soft's tacit admission that an OS/2 
tomorrow is no match for a 
DesqView today. 
I mention all this because in the 
months to come, DDJ will be spend- 
ing a great deal of space exploring 
the 386 universe. We'll be investigat- 
ing a variety of operating systems 
and environments. And we'll be cov- 
ering OS/2, of course. It’s just sad to 
realize that our OS/2 coverage, even 
as it begins, may be as dated in 
another vear as CP/M Plus coverage 


is today. 


Tyler Sperry 
editor 


























| 


| 


ournal of 


Dr.Dobb's Dobb's Jo 


Software e Too 


FOR THE PROFESSIONAL PROGRAMMER 


Editorial 


Editor-in-Chief 
Editor 

Managing Editor 
Associate Editor 
Assistant Editor 
Technical Editors 


Contributing Editors 


Copy Editor 


Michael Swaine 
Tvler Sperry 
Vince Leone 

Ron Copeland 
Sara Noah Ruddy 
Allen Holub 
Richard Relph 
Kent Porter 
Namir Shammas 
Ernest R. Tello 
Rhoda Simmons 


Production 


Director Art/Production 
Art Director 

Assoc. Art Director 
Technical Illustrator 


Typesetter 
Cover Photographer 


Larrv L. Clay 
Michael Hollister 
Joe Sikorvak 
Barbara Mautz 
Marv E. Lopez 
Michael Carr 


Circulation 


Circulation Director 
Fulfillment Coordinator 
Book Marketing Mgr. 
Subscription Supervisor 


Maureen Kaminski 
Francesca Martin 
Jane Sharninghouse 
Kathleen Shav 


Newsstand Sales 
Coordinator Larry Hupman 
Administration 
Finance Director Kate Wheat 
Business Manager Bettv Trickett 
Accounts Payable Supv. Mavda Lopez-Quintana 
Accts. Receivable Supv. Laura DiLazzaro 
Advertising Director 
Ferris Ferdon (415) 366-3600 
Marketing Mgr. Michael Wiener 
Trafficking Coordinator Patricia Albert 
Account Managers see page 129 
Associate Publisher 
Michael Swaine 
Assistant Sara Noah Ruddy 


Dr. Dobb’s Journal of Software Tools (USPS 307690) 
is published monthly by M&T Publishing Inc., 501 
Galveston Dr., Redwood City, CA 94063; (415) 366-3600. 
Second-class postage paid at Redwood City and at 
additional entry points. DDJ is published under license 
from People’s Computer Company, 2682 Bishop Dr., 
Suite 107, San Ramon, CA 94583, a nonprofit corpora- 
tion. 

Article Submissions: Send manuscripts and disk (with 
article and listings) to the Associate Editor. 


DDJ on CompuServe: Tvpe GO DDJ 


Address Correction Request: Postmaster: Send Form 
3579 to Dr. Dobb's Journal, P.O. Box 27809, San Diego, 
CA 92128. ISSN 088-3076 


Customer Service: For subscription problems call: 
outside CA (800) 321-3333; in CA (619) 485-9623 or 
566-6947. For book/software order problems call (415) 
366-3600. 

Subscriptions: $29.97 per 1 vear: $56.97 for 2 vears. 
Canada and Mexico add $27 per vear airmail or $10 per 
vear surface. All other countries add $27 per vear 
airmail. Foreign subscriptions must be prepaid in US. 
funds drawn on a US. bank. For foreign subscriptions, 
TELEX: 752-351. 3 

Foreign Newsstand Distributor: Worldwide Media 
Service Inc., 386 Park Ave. South, New York, NY 10016; 
(212) 686-1520 TELEX 620430 (WUD). 

Entire contents copyright ‘ 

Publishing, Inc., 


1987 bv M&T 
unless otherwise noted 
on specific articles. All rights reserved. 





M&T Publishing Inc. 


Chairman of the Board Otmar Weber 
Director C.F. von Quadt 
President and Publisher Laird Foshav 








mt ee 


Dr. Dobb's Journal, December 1987 
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Genius Begins With A Great Idea ... 


What follows is the time consuming task of giving 
form and function to the idea. 

That’s why we concentrate on building into our soft- 
ware development systems functions and features 
that help you develop your software ideas in less time 
and with less effort. 

We've started 1987 by releasing new versions of 
our MS-DOS, Macintosh, Amiga, ROM, and Apple // 
C development systems. Each system is packed with 
new features, impressive performance, and alittle bit 
more genius. 





Superior performance, a powerful new array of fea- 
tures and utilities, and pricing that is unmatched 
make the new Aztec C86 the first choice of serious 
software developers. 


Aztec C86-p Professional System ... .$199 
¢ optimized C with near, far, huge, small, and large 
memory + Inline assembler + Inline 8087/80287 + 
ANSI support + Fast Float (32 bit) + optimization 
options * Manx Aztec 8086/80x86 macro assembler 
e Aztec overlay linker (large/small model) ¢ source 
level debugger ¢ object librarian ¢ 3.x file sharing & 
locking * comprehensive libraries of UNIX, DOS, 
Screen, Graphics, and special run time routines. 


Aztec C86-d Developer System...... $299 
e includes all of Aztec C86-p © Unix utilities make, 
diff, grep * vi editor © 6 + memory models ¢ Profiler. 


Aztec C86-c Commercial System. .... $499 
e includes all of Aztec C86-d * Source for library rou- 
tines ¢ ROM Support ¢ CP/M-86 support ¢ One year 
of updates. 


Aztec C86 Third Party Software 


A large array of support software is available for Az- 
tec C86. Call or write for information. The following is 
a list of the most requested products: « Essential 
Graphics « C Utility Library « Curses * Greenleaf Com- 
munication, General, and Data Window « Halo « Pan- 
el+ ¢ PC-lint « PforCe * Pre-C « Windows for C « Win- 
dows for Data» C terp « db_Vista * db-Query « Phact « 
Plink-86 Plus « c-tree « r-tree « Pmate 


C compiler, 8080/Z80 assembler, linker, librarian, 
UNIX libraries, and specialized utilities. 


Aztec C Il-c (CP/M-80 & ROM)........ $349 
Aztec Cll-d (CP/M-80)..........005. $199 
Aztec C80 (TRS-80 3&4) .........00. $199 











Amiga user groups across the USA voted Aztec 
C68k/Am release 3.3 the best Software Development 
System for the Amiga. Release 3.4 is more impres- 
sive. 


Aztec C68k/Am-p Professional ...... $199 
A price/feature/performance miracle. System in- 
cludes: optimized C * 68000/680x0 assembler 
68881 support © overlay linker ¢ UNIX and Amiga 
libraries © examples. 


Aztec C68k/Am-d Developer ........ $299 
The best of Manx, Amiga, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p ® the Unix utilities 
make, diff, grep and vi. 


Aztec C68k/Am-c Commercial....... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 





For code quality, reliability, and solid professional 
features, Aztec C for the Macintosh is unbeatable. 
This new release includes features and functions not 
found in any other Macintosh C development system. 


Aztec C68k/Mac-p Professional...... $199 
¢ optimized C * 68000/680x0 assembler * 68881 
support * overlay linker ¢ UNIX and Macintosh li- 
braries © examples. 


Aztec C68k/Mac-d Developer........ $299 
The best of Manx, Macintosh, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p © the Unix utilities 
make, diff, grep ¢ vi editor. 


Aztec C68k/Mac-c Commercial ...... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 


Aztec C65 is the only commercial quality C com- 
piler for the Apple II. Aztec C65 includes C compiler, 
6502/65C02 assembler, linker, library utility, UNIX li- 


braries, special purpose libraries, shell development 
environment, and more. An impressive system. 


Aztec C65-c Commercial ........... $299 
¢ runs under ProDOS ® code for ProDOS or DOS 3.3 
Aztec C65-d Developer............. $199 


e runs under DOS 3.3 ¢ code for DOS 3.3 
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1 Industrial Way, Eatontown, NJ 07724 


PHACT TM PHACT Asso 


An IBM or Macintosh is not only a less expensive 
way to develop ROM code, it’s better. Targets include 
the 6502/65C02, 8080/Z80, 8086/80x86, and 680x0. 

Aztec C has an excellent reputation for producing 
compact high performance code. Our systems for 
under $1,000 outperform systems priced at over 
$10,000. 


Initial Host Plus Target............. $750 
Additional Targets ................ $500 
ROM Support Package............. $500 


Call for information on Vax, PDP-11, Sun and other 
host environments. 


These C development systems are unbeatable for 
the price. They are earlier versions of Aztec C that 
originally sold for as much as $500. Each system 
includes C compiler, assembler, linker, librarian, 
UNIX routines, and more. Special discounts are 
available for use as course material. 


SS PUNO ioe ok Gas Sa wh eR $75 


Most Aztec C systems are available as cross devel- 
opment systems. Hosts include: PC/MS-DOS, Mac- 
intosh, CP/M, Vax, PDP-11, Sun, and others. Call for 
information and pricing. 


To become a user call 800-221-0440. From NJ or 
international locations call 201-542-2121. Telex: 
4995812 or FAX: 201-542-8386. C.0.D., VISA, 
MasterCard, American Express, wire (domestic 
and international), and terms are available. One 
and two day delivery available for all domestic and 
most international destinations. 

Aztec C is available directly from Manx and from 
technically oriented computer and software stores. 
Aztec Systems bought directly from Manx have a 30 
day satisfaction guarantee. 

Most systems are upgradable by paying the differ- 
ence in price plus $10. Site licenses, OEM, educa- 
tional, and multiple copy discounts are available. 


To order or for more information call today. 


In NJ or international call (201) 542-2121 e TELEX: 4995812 


MS is a Bias erp ™ “A Microsoft, Inc., CP/M TM DRI, HALO TM Media Cybernetics, PANEL TM Roundhill Computer Systems, Ltd., 
. PRE-C, Plink-86, Plink-86 + , P-Force TM Phoenix, db Vista TM Raima Corp., C-terp, 
ware, C- Mosk TM Fakooe, Inc., Windows for C, Windows for DATA TM Creative Solutions, Apple II, apes t TM Apple, Inc., TRS-80 TM 
Radio Shack, Amiga TM Commodore Int'l., Unix TM AT&T, Vax TM DEC, Aztec TM Manx Software System 
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RUNNING LIGHT 


ts been a crazy 

month, no doubt 
about it. I'd tell you all 
about it, except you'd 
probably be_ bored 
with the details, and 
as the old joke goes, I 
don't want to talk 
about it. Suffice to say 
that this month has 
seen the departure of 
Vince Leone, our long- 
suffering Managing Editor, ane the 
usual mad rush to get the magazine 
out the door has been unusually 
mad. 

This month has also seen an ab- 
normal mix of last minute code 
changes and too little space in the 
magazine. The code for Rick Naro’s 
LOCATE utility, for example, was up- 
dated for MASM version 5.0, but un- 
fortunately we've had to continue 
the listings into next month. That 





code will be joined by 
some last-minute ad- 
ditions to the articles 
by Dave Cortesi and 
Martin Tracy. Those 
of you who use Com- 
puServe wont be af- 
fected by most of this 
madness since welll 
be updating the code 
before it goes online. 
And before it goes 
onto the listings disk. 

One last note before I go: the grem- 
lins obliterated my CompuServe 
number last month, but you can 
still reach me as 76703,4266. If you're 
doing neat things in Object-oriented 
programming or AI, now's the time 
to pitch me an article. 


“Ty 3 Tyler Sperry 
editor 
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Ten Years Ago in DDJ 

“DALLAS, Texas—The first flexible disk 
drive for 51/4” diskettes to offer double 
density recording of 250,000 bytes on 
each side of a diskette, was introduced at 
the National Computer Conference here 
today by the Pertec Division of Pertec 
Computer Corporation.’ News release 
received Jun 18, 1977, DDJ, November/ 
December 1977. 


Kicking the 8080 Habit 

“Maybe it’s just my imagination, but it 
seems that a lot of people aren't utilizing 
the Z-80 to its fullest. Everyone is so used 
to writing code for the 8080 that they 
don’t seem to bother upgrading their 
software when they upgrade their CPU. . 

“IT would like to see you guys... explain 
all the nifty Z-80 tricks. I know I can't be 
the only one that is stuck in the rut of 
8080 code. (Please!! Don’t tell me I 
swapped my CPU board JUST for speed— 
the software potential is fantastic.)” 
Letters to the Editor, DDJ, November/ 
December 1977. 


Exec with Extreme Prejudice 

“In a multi-tasking environment such 
as we expect to see in MS-DOS 3.0, this 
function (function 4BH - EXEC) will be 
even more useful and will undoubtedly 
be elaborated with several additional 
features. Under such an operating system, 
a parent task can ‘spawn’ any number of 
child tasks, which can execute concur- 
rently and asynchronously, and commu- 
nicate by means of queues, semaphores, 
and pipes. 

“Well, you say, pie in the sky is all very 
nice, but why is the EXEC function getting 
so much attention in this magazine 
column? The answer is, of course, that 
when I tried to actually use the function 
I ran into any number of glitches and 
hazy spots in the documentation.” Ray 
Duncan, “16-bit Software Toolbox,’ DDJ, 
December 1983. 


Encryption 

“A small but vital piece of hardware 
containing a microelectronic chip only 1 
cm square has been tested and validated 
at the Commerce Department's National 
Bureau of Standards (NBS)—marking the 
first NBS validation of a commercial imple- 
mentation of the Federal Data Encryption 
Standard published early this year.’ News 
release received October 31, 1977, DD4J, 
November/December 1977. 
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Take a look at the specs on VISTA™, a good look. 


Notice the processing, programming, and video 
Capabilities? Now think real hard about what you could 


do with the power of VISTA and a microcomputer. Incor- 
porate it with your system to create a digital pre-press 
proofing station for publishing. Design a graphics work- 
station which outputs both colorful hi-resolution slides 
and broadcast-quality animated images. Construct a 
CAD system which merges computer generated images 
with real-life backdrops for architecture, packaging or 
other industries. And, after you’ve brainstormed your 
way to new horizons of videographics possibilities, get 
your own VISTA and start working. 






































“Introducing VISTA" Videographics. 
















It’s So Flexible, 
We’ve Added Support. 
ADDRESSABLE RESOLUTIONS: With its Texas Instruments TMS 34010 
Let’s Get Specific. 32 bits/pixel _16 bits/pixel__8 bits/pixel is hase oe , large a of 
_. 1024x1024 2048x1024 4096x1024 | Video memory, ana proprietary video 
We knew you couldn’tresistseeing the = s;o,0048 += 1024x2048 2048x2048 ~—~—«cross-point, VISTA can be programmed 
aes Halas nel deg: 256x4096 5512x4096 + +—«- 1024x4096 _for an array of powerful market-specific 
wouldn't have it any other way. Here Is videographic applications. To help you 
A = ‘oe — y 
an overview of VISTAS key features. : bag Sy maximize VISTA’s potential, Truevision 
FEATURES: (RS-170A). ~~~ (eciR-624).~=*«“‘C(C*#‘#é eS range of C-language program- 
» AMbytes of Video RAM on-board 756x486 738x576 ming tools for developers. And when 
¢ Texas Instruments’ TMS 34010 GSP habe: oo. your system is market-ready, we'll sup- 
2 

¢ Flexible, programmable resolutions 432x486 422x576 port your marketing efforts with our 
e NTSC and PAL compatible *Resolutions are programmable; these are nominal ones TRUEVISION SOFTWARE CATALOG, 
» Four 8-bit channels for real-time for interlaced NTSC and PAL compatible. TRUEVISION NEWS, and THE PULSE. 

capture DISPLAY RESOLUTIONS:* We're For Higher 
¢ Fully integrated genlock Non- . 
» Processor memory expandable in NTSC PAL _Interlaced Interlaced Resolution... Power...Flexibility... 

2Mbyvte increments to 12Mbytes (RS-170A) (CCIR-624) Quality. Join the many key manufac- 
: ahi x 8-bit CMOS precafes 1512x486 1476x576 1024x768 768x576 turers and developers already working 

1008x486 984x576 (60 Hz) (50 Hz) with the stat f th id hi t 
LUTs 756x486 738x576 Sag OG View en ae 


e Display can be color-mapped, RGB, 604x486 590x576 768x768 756x486 VISTA. Call us at 800/858-TRUE for 
or a versatile combination of both 504x486 492x576 (80 Hz) (60 Hz) more information on the VISTA 


¢ Interlaced and non-interlaced display *Resolutions are programmable; these are nominal ones. Developer's Program. We're ready to 
¢ Binary and fractional programmable §=COMPUTER REQUIREMENTS: take your application today. 


zoom capability, creates horizontal Host Type: IBM PC AT and 100% Compati- AT&T 
and vertical magnify or minify bles, Compaq 386, Electronic Photography and Imaging 
¢ Smooth horizontal and vertical pro- — ae so iy ee eee ge: Center 
grammable panning, includes wrap- ata Bus: 16-bit oF S-Dit (sell-connigunng 7351 Shadeland Station, Suite 100 
around and split screen oS Indianapolis, IN 46256 
- Suggested Retail Price: $5995. Consumption: 15 Watts 800/858-TRUE 
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IBM is a registered trademark of International Business Machines Corp. International Inquiries: contact Techexport at 617/890-6507 (USA), or London at 44-1-991 -012 
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Stone Age Soitware 
Dear DDJ, 
Thank you for an excellent editorial 
in the September 1987 issue. The 
point Tyler Sperry makes about the 
crippling of potentially powerful ma- 
chines is a sore point with me also. 

I work for a large computer manu- 
facturer and have seen for myself 
how these limiting factors get incor- 
porated into machines, not only in 
software but also in hardware. I 
don't see an immediate solution but, 
like you, I'll keep screaming for the 
liberation of these systems from 
stupid design flaws. 

Les J. Record 

1201 East Mesa Pk. Dr. 

Round Rock, TX 78664 


Dear DDJ, 

I don't think there is any 
reason to complain about the 
architecture of the 80286, at 
least not about the inability 
to switch back to real mode. 
This is like building a V30- 
based computer to run CP/M 
Plus and then cursing at 
those crazy 16-bit data and 
lO buses that make design- 
ing a good 8-bit system such 
a mess. 

Remember, the 8086/8088 
didn’t even have an 8080 emu- 
lation mode, so why blame 
the designers of the 80286 for 
including an 8086 emulation 
mode? It is there just to give 
an upward migration path, 
not to be frantically switched 
on and off. 

Let's face it, it’s not the 











software. Switching back from pro- 
tected mode itself is Stone Age, not 
the messy way it has to be done. 
And AboveBoard emulators are a 
Stone Age way of reducing a 16- 
megabyte address space to an 8- 
megabyte collection of memory 
chunks—and there are people 
proud of that! 

The cry for hardware compatibil- 
ity—which means hardware-depend- 
ent software (which equals incom- 
patible software)—has made the tran- 
sition from today’s status quo far 
more difficult than the change from 
8-bit CP/M to 16-bit MS-DOS has 
been. It’s like using metal tools to 
make better stone axes. It will take 
true Bronze Age men to change 
things. 

Jost Riedel 

Am Reservoir 2 

P.O. Box 1141 

D-3522 Bad Karlshafen 1 

West Germany 


Recursive/Iterative 
Trade-Off 

Dear DDJ, 

I really enjoyed the article on back- 
tracking by Charles F. Bowman 
(August 1987). His structure for the 


Hurry up Jennings—our very existence 


may depend on it! 











chip that is Stone Age but the 





puzzle-solving program, using recur- 
sive techniques, is nice and simple. 

I just have one quibble with the 
article: In his discussion on ways to 
speed up the process, Bowman 
apologizes for his use of a recursive 
approach and states the conven- 
tional wisdom, “Recursive proce- 
dures are costly because of the con- 
siderable amount of overhead re- 
quired for each successive call. Your 
program must save registers, store a 
return address, allocate local stor- 
age, and so on.” 

That statement surely sounds plau- 
sible. I've accepted it on faith for 
years. It was probably even true on 
most of the old mainframe comput- 
ers, which is probably the context 
in which both Bowman and I heard 
it. But it may not be true in the 
context of microcomputers. All cur- 
rent microprocessors support very 
fast subroutine call/return mecha- 
nisms as well as stack push/pops. 
Because of these operations, some- 
times recursive is better in all ways. 

To test the truth of the recursive/ 
iterative trade-off, I wrote an eight- 
queens problem in both forms (the 
recursive version is shown in Exam- 
ple 1, page 14). The program was 
written in Turbo Pascal for a 
PC clone. Much to my pleas- 
ant surprise, the recursive ver- 
sion turned out to be a full 
40 percent faster than the non- 
recursive form. It was also 
smaller, of course. 

Another concern often 
voiced about recursive ap- 
proaches is that of limited 
stack space. The idea is that, 
if your program has to go 
many levels of recursion, it 
may crash by overflowing the 
stack. To test that hypothe- 
sis, I ran the program shown 
in Example 2, page 14, again 
using Turbo Pascal. The pro- 
gram did indeed crash (grace- 
fully) but at a level of more 
than 5,400 layers of recursion. 
That's 5,400 successive sub- 
routine calls, folks! That 
should be enough for most 
of us! 

So it appears that the con- 
ventional wisdom “recursion 
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Geeecting DESQview, 
the environment of 
choice, can give youthe fies 
productivity and power 
you crave, without the 
loss of your old pro- 
grams and hardware. 

If you like your existing 
programs, want to use GREAT ATLA 
them together, transfer SITE 
data between them, Porapice te 
print, sort, communi- 
cate with or process- 
in-background, yet still 
have the need to keep 
in place your favorite 
PC(8088, 8086, 80286 
or 80386), DESQview 
is the “proven true” 
multitasking, multi- 
windowing environ- 
ment for you. Best of all, DESQview 2.0 is here now, 
with all the money saving, time saving, and productiv- 
ity features that others can only promise for the all- 
too-distant future. 

And with DESQview’s new graphics enhancements 
for Hercules, CGA, EGA, and VGA, Version 2.0 still 
offers the same award winning and pioneering fea- 
tures for programs that earned DESQview its leader- 
ship, only now you can also run desktop publishing 
programs, CAD programs, even GEM-™" Topview-*" and 
Microsoft Windows-™ specific programs. In some cases 
you'll add as little as 10-40K to your system overhead. 
Now you can have multi-tasking, multi-windowing, 
break the 640K habit too and still get an auto dialer, 
macros, menus for DOS and, for advanced users, a new 
complete application programmer's interface capabil- 
ity. No wonder that over the years, and at scpimapaen in 
recent months, DESQview, and now 
DESQview 2.0 have earned extrava- 
gant praise from some of the most 
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“Product of the Year” by readers. 
vote in Info World. 

“Best PC Environment” by popu- 
lar vote at Comdex Fall in PC Tech 


Journal's “System Builder” Contest. 
“__T wouldn't want to run an IBM 
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One picture is worth a thousand promises. 


How to tell the difference 


between DESQview'2.0 and 
any other environment. 





or compatible 
computer without 
DESQview’—Info- 
World, Michael Miller. 
“A colossus among 
windowing environ- 
ments”... “will run 
almost anything”: 2—PC 
Week, Marvin Bryan. 
“Windows, prom- 
ises, but DESQview 
delivers’—MICRO- 
TIMES, Birell Walsh. 
No other environ- 
ment has consistently 
pioneered features, open- 
ness, and productivity. 
See for yourself. Send in 
the coupon. The possi- 
bilities are endless with 
DESQview 2.0. 
Attention Programmers: For more information 
about Quarterdeck’s API, and future 386 program 
extensions, call us today. 


SYSTEM REQUIREMENTS 

IBM Personal Computer and 100% compatibles (with 8086, 8088, 80286 or 80386 
processors) with monochrome or color display; IBM Personal System/2 *Memory: 640K 
recommended; for DESQview itself 0-145K *Expanded Memory (Optional): expanded 
memory boards compatible with the Intel AboveBoard; enhanced expanded memory 
boards compatible with the AST RAMpage * Disk: Two diskette drives or one diskette 
drive and a hard disk *Graphics Card (Optional): Hercules, IBM Color/Graphics (CGA), 
IBM Enhanced Graphics (EGA), IBM Personal System/2 Advanced Graphics (VGA) * 
Mouse (Optional): Mouse Systems, Microsoft and compatibles * Modem for Auto-Dialer 
(Optional): Hayes or Compatible *Operating System: PC-DOS 2.0-3.3; MS-DOS2.0-3.2 « 
Software: Most PC-DOS and MS-DOS application programs; programs specific to 
TopView 1.1, GEM 1.1 and Microsoft Windows 1.03 *Media: DESQview 2.0 is available 
on either 544” or 34" floppy diskettes 








| Rush me DESQview 2.0! Today! DDJ12/87 
No. of Copies Media 342"/54”" Product rere Price ea. pe 









| $120.95 95 


$ 5.00 
$ 10.00 
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Shipping & Handling USA 


| Outside USA 





Sales Tax (CA residents) 








| Amount | 
Payment: [)Visa [JMC [LJAMEX [)Check Enclosed 
Credit: Cardi: Valid SiC ace | ett DION 6 
Card Number: PrerTiCer tii ret Ea 
TCC: Gar Na a acc 
Shipping Address | 
a ee ees A Telephone 


Mail to: Quarterdeck Office Systems, 150 Pico Boulevard, Santa Monica, CA 90405. 
NOTE: If you own DESQview call us for a special upgrade offer, or send in your DESQview | 


registration card. AST Special Edition users included. 





Quarterdeck 
Quarterdeck Office Systems ¢ 150 Pico Boulevard, Santa Monica, CA 90405 ¢ (213) 392-9851 


DESQview is a trademark of Quarterdeck Office Systems. AboveBoard is a trademark of Intel Corporation. Hayes is a trademark of Hayes MicroComputer Products Inc. IBM, PC, Personal System/2 and TopView are 
niet of International ew Machines Corporation. Microsoft Windows and MS are registered trademarks of Microsoft Corporation. Mouse Systems is a trademark of Metagraphics/Mouse Systems. RAMpage 
is a trademark of AST Research, Inc. GEM is a trademark of Digital Research. Hercules is a trademark of Hercules. 
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{ A skeleton program for the eight-queens 
problem. By altering the dimensions and the 
routines fit, place, and unplace, it also 


serves as a model for any other solution 
involving backtracking. The program assumes a 


data array q[0..maxcount] containing the 
values to be adjusted (row on the chessboard 
in the case of the eight queens. Three 
procedures are assumed: 
Function fit(1) compares the position of the 
queen q{1] with all pieces placed so far, 
and returns TRUE if there is no conflict. 
Procedure place(1) records queen q[1] on the 
board 

Procedure unplace(1) removes queen q[1]. 


} 


procedure Try(1l: integer); 
begin 
for q[{1] := 0 to maxcount do begin 
if fit(1) then begin 
place (1); 
if 1 = max then ShowResult 
else try(1 + 1); 
unplace (1); 
end; 
end; 
end; 


{ Main Program } 


begin 
initialize; 
try(0); 
end. 


Example 1: Eight queens problem in Pascal 


Example 2: Program to test levels 
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Program test; 
procedure bump(n: integer); 
begin 
writeln(n); 
bump(n + 1); 
end 


{ Main Program } 


begin 
bump (0) ; 
end. 





Bytes 8088 Clocks 

3 12+ea = 12+9 = 21 mov ax,word ptr {bp}.value 

2 2 mov bx, ax 

3 12+0€a = 12+9 = 21 mov ax,word ptr {bp}.value{2} 
8 44 

3 12+ea = 124+9 = 21 mov ax,word ptr {bp}.value{2} 
3 12+ea = 1249 = 21 mov bx,word ptr ({(bp}.value 

Ss & 

3 24+ea = 24+9 = 33 les bx, {bp} .value 

2 2 mov ax,es 

s oo 


Table 1: Timings for Example 6, page 26, July 1987 DDJ 














of procedure nesting 




















is costly” needs to be put to rest. In 
the modern world of micros, the 
simplest and most elegant solution 
may also be the smallest and fastest. 

As an aside, the issue of fast call/ 
return mechanisms should also 
cause us to take another hard look 
at assembly-language programming. 
The conventional picture of an as- 
sembly-language program is that of 
one long string of in-line code and 
macros. Many programmers tend to 
think this is necessary to achieve 
the speed you expect of a native- 
language program. But because of 
the support provided by the micro 
chips, the trade-offs of modularity 
vs. speed favor the former in assem- 
bly language, even more than in a 
higher-order language. 

DDJ Forum User 


Instruction Timings 
Dear DDJ, 
A reader called to point out an error 
in my article “8088 Assembly-Lan- 
guage Programming Techniques” 
(July 1987). It seems that the early 
versions of Intel’s instruction timing 
tables implied that no cycles are 
used for effective address calcula- 
tion when the AX register is used for 
moves to and from memory. In fact, 
this is the case only when using 
direct memory reference. For all 
other cases, AX is treated in the 
Same way as any other register. 

Table 1, left, gives the timings for 
my Example 6, on page 26 of the 
July issue. There is no doubt that 
the third method is best for real 
mode. Protected mode on the 80286, 
however, is another story. 

Tom Disque 

SAS Institute Inc. 

P.O. Box 8000 

SAS Circle 

Cary, NC 27511-8000 


DDJ 
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hen it comes to maintaining their most 

valuable asset, the leading software 
publishers rely on the POLYTRON Version Con- 
trol System (PVCS). From accounting firms to 
airlines, the leading service companies depend 
on PVCS to maintain the integrity of their pro- 
grams. Leading manufacturing companies use 
PVCS to maintain their state-of-the-art software. 
Leading high technology companies turn to 
PVCS to handle configuration management for 
software projects that represent an investment 
of hundreds of thousands of dollars. The largest 
aerospace companies and defense contractors 
use PVCS to maintain integrity of projects during 
development and after delivery of software. 
Independent programmers use PVCS to 
improve their productivity and software quality 
for themselves and their clients. 


Simplify 
Configuration Management 


When large and complex software programs are 
being developed on personal computers or VAX 
minicomputers, effective management of the 
revisions and versions becomes critical. PVCS 
simplifies this process and lets you effectively 
control the proliferation of code changes. We 
used UNIX SCCS and RCS as models. How- 
ever, Our own experience, and the input of 
hundreds of programmers and managers has 
enabled us to significantly improve upon these 
models. 


PVCS provides many 
powerful functions including: 
e Storage & Retrieval of multiple revisions of text. 
e Maintenance of acomplete history of changes. 
e Maintenance of separate lines of development 
using branching. 
e Merging simultaneous changes. 
e Resolution of Access Conflicts. 


e Modules can be retrieved by their own revision 
number, system version name, or specified 
date. 


e Uses “reverse deltas” to rebuild a prior version 
making PVCS the fastest version control 
system over the project life cycle. 


e Projects already under developmentor in the 
maintenance stage can be easily put under the 
control of PVCS. 


Manages Development On 
Local Area Networks 


Programming teams using Local Area Networks 
depend on PVCS to help the managers and 
team members work together. In fact, Novell and 
3Com themselves depend on PVCS to manage 
the versions of their own network software 
products. 


Supports MS-DOS 
and VAX/VMS Development 


Now, companies that develop software on VAX 
systems running VMS can also use PVCS. And 
since the VMS and MS-DOS versions of PVCS 
use the same “logfile” format, you can easily 
develop software on PCs and maintain the code 
on the VAX or vice versa. The menu-driven, 
screen-oriented interface (and optional 
command-driven interface) makes it easy for 
programmers and librarians or administrators to 
use PVCS on aPC or VAX or both systems. 


PVCS Maintains System 
Integrity 


PVCS prevents corruption of code that could 
ordinarily result from security breaks, user care- 
lessness or malfunctions. The levels of security 
can be tailored to meet the needs of your project. 


PVCS & PolyMake 
Work Together 


PolyMake, the leading MS-DOS make utility, is 
now available for the VMS operating system. 
This allows you to write makefiles that will func- 
tion in both PC and VAX environments. Addition- 
ally, PolyMake reads time & date stamps of PVCS 
archives for fast, accurate program rebuilding. 


PVCS and PolyMake Maintain 
Source Code Written In 
Any Language. 


Only PVCS meets the needs of independent 
programmers and corporations. Once you stan- 
dardize on PVCS, the archives used to track and 
monitor changes are interchangeable between 
any PVCS product. You will receive full credit for 
your initial purchase if you upgrade to a higher- 
priced MS-DOS version of PVCS. 


Personal PVCS — Offers most of the power and 
flexibility of Corporate PVCS, but excludes the 
features necessary for multiple-programmer 
projects. 


Corporate PVCS — Offers additional features to 
maintain source code of very large and complex 
projects that may involve multiple programmers. 
Includes multi-level branching to effectively main- 
tain code when programs evolve on multiple 
paths (e.g. new versions for different host 
systems, or anew program based on an existing 
program). 


Network PVCS — Extends Corporate PVCS for 
use on Networks. File locking and security levels 
can be tailored for each project. 


PVCS for VAX systems — Requires VMS. Uses 
the same interface and archive format as MS- 
DOS version. Supports branching and offers file 
locking and other security features for multiple- 
programmer projects. 


The Preferred 
Version Control System 


The customers listed below are just a few of the 
innovative leaders that have made PVCS the 
leading version control program for personal 


computers. 


Alcoa Aluminum 

Arthur Anderson 

AT&T 

Ashton-Tate 

Bank of America 

Bell Labs 

Bendix 

Boeing 

CIGNA 

Citibank 

3Com 

Colonial Penn 
Commerce Clearing House 
Control Data Corp. 
Corvus 

CX! 

Digital Equipment Corp. 
Deloitte Haskins + Sells 
Diebold 

Dow 

Dunn & Bradstreet 

EDS 

Educational Testing Service 
E-Systems 

Equitable Life 

Federal Express 

First Boston 

Ford - 

Fox Software 

Fujitsu 

GTE 

Hardees 
Hewlett-Packard 
Honeywell 

Hughes Aircraft 

IBM 

Industrial Networking 
Intel 


ISC Aerospace 

IVAC 

Javelin 

Lattice 

Lawrence Livermore 
Lotus 

McData Corp. 
McDonnell Douglas 
Mead Data Central 
MIT Lincoln Labs 
Nastec 

Novell 

NCR Technologies 
Pitney Bowes 
Plexus Computers 
Price Waterhouse 
ROLM 

Rockwell International 
Safeco 

Sears 

Security Pacific 
Sperry 

Software Publishing 
Spacelabs 

Standard Oil 
Standard & Poors 
Tandem 

Tektronix 

Telex 

Texas Instruments 
Touche Ross 

Unisys 

United Airlines 
United Parcel Service 
United Technologies 
U.S. West 
Westinghouse Electronics 
Xerox 


ee Se 


Network PVCS $995** $4,950 $9,500 |$10,500+ 
Network $447** | $1,250 | $2,375 | $2,500+ 
PolyMake 


*Compatible with MS-DOS 2.0 through 3.3. 
Compatible with the IBM PC/XT/AT & other 


MS-DOS PCs. 





**5 Station LAN License. Call for pricing 


on larger Networks. 


TO ORDER: 
VISA/MC 1-800-547-4000. 
Dept. No. 355 
Oregon & Outside USA call (503) 645-1150. 
Send Checks, PRO.s to: POLYTRON 
Corporation, 1815 NW 169th Place, 
Suite 2110, Beaverton, OR 97006. 
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High Quality Software Since 1982 
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Texas Instruments has 
system developers need. 
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“Personal Consultant™ Plus ee offers Personal Consultant Plus 3.0 Standard Features 


— Frames, rules, meta rules and procedures 
— Forward/backward chaining 


a very fine expert system development {eee Ke and rule tracing 


— End-user explanation facilities 


: — Graphics image capture and display 
and delivery tool that already has =e ase Lae} 28, 08s 


— Complete LISP development environment 


a proven record with end-users.” = Ziegat expanded ended menor suppor 


= wi plored: help 
— “Getting Started” tutorial-style m | 
— Susan Shepard, AI Expert : piggies 


Personal Consultant Images 
— Optional add-on package to PC Plus (3.0) 
— Allows integration of “active images” into 





what serious ex 
Power tools. 



















knowledge bases 

— Interactive dials, gauges, forms and selection 
images 

— Multiple images can be combined on same 
screen 

- “Getting Started” tutorial-style manual 


Personal Consultant Online 

~ creer add-on package for PC Plus (3.0) 

— ONLINE expert systems that interact directly with 
process data 

— Multiple interfaces to data acquisition and 
analysis programs 

— Knowledge base synchronization with process 


data 
— Functions for historical and predicted trends 
- See user interface/reporting capabilities 
- “Getting Started” tutorial-style manual 





Adstione all the expert system devel- 
opment tools available for personal 
computers today, none deliver the 
power and flexibility of TI’s Personal 
Consultant series. 

Personal Consultant Easy is ideal for 
getting started, and is upwardly com- 
patible with the higher functionality of 
PC Plus. For experienced developers, 
Personal Consultant Plus and its 
optional add-on enhancements, Online 
and Images, were designed to help solve 
a broader range of complex problems. 


PC PLUS 


Frames, rules, meta rules, procedures 


Interfaces with: 
Lotus 1-2-3 


+ dBase Il, fll, Ill Plus 


« DOS files 


« .EXE and .COM programs 
Customize in LISP or “C” 


8088/286/386 2 aes 


LISP or “C” Delivery 
Embedded or Stand-al Common LISP Delivery 











Personal Consultant Plus. Full power 
for an affordable price. 

At $2,950, PC Plus has proven to be 
one of the richest and most flexible 
problem-solving tools available for the 
development of complex knowledge- 
based systems. Designed to take 
advantage of today’s more powerful 
286/386 DOS-based computers, or Tl’s 
Explorer™ Symbolic Processing System, 
the new 3.0 version of PC Plus provides 
powerful standard features and a contin- 


uing growth path with the addition of 
either PC Images or PC Online, or both. 


Personal Consultant Images. Picture 
an expert system with interactive 
graphics. 

At $495, PC Images enables developers 
to create knowledge-based applications 
that incorporate complex graphical 
“active images.” User-interactive dials, 
gauges, forms and selection images pro- 
vide a more exciting visual data input 
and output style. 


Personal Consultant Online. The 
expert system as part of the process. 
At $995, PC Online allows the devel- 
oper to design expert systems which 
interact directly with process data, as 
opposed to input from a human oper- 
ator. Designed for intelligent process 
monitoring applications, this optional 


er 


package helps deliver expertise that is 
“online all the time.” 


Application delivery as flexible as the 
tools themselves. 

Delivery can be in LISP for flexibility, 
or “C”* for maximum speed and porta- 
bility. Our “C” options support either 
stand-alone or “embedded” knowledge 
bases. Options are available for DOS- 
based PCs, TI’s Explorer, and DEC’s 
VAX™ line of multi-user minis running 


under VMS™. 


PC ONLINE 
Process Monitoring 


PC IMAGES 


Active Images 


VAX/VMS 
“C” Delivery 
_i Embedded or Stand-alon 


“Texas Instruments has done more 
than any other company to educate 
people about AI, to popularize it, and 
to make useful AI tools available at 
reasonable prices.” 

— Jim Seymour, PC Magazine. 


Technical support, training courses and 
Knowledge Engineering Services are 
available for the Personal Consultant 
products. If you have a question about 
any of our expert system power tools, we 
have the answer. 


Pick up the phone and gain a powerful 
advantage. 

Call 1-800-527-3500 for technical 
overviews of our products and a PC Plus 
case histories brochure which details 
how our power tools are being put to 
work today. 


36106 

© 1987 TI 

Personal Consultant and Explorer are trademarks of 

Texas Instruments Incorporated. 

dBase is a trademark of Ashton- Tate. 

Lotus 1-2-3 is a trademark of Lotus Development Corp. 

VAX and VMS are trademarks of Digital Equipment Corporation. 
* Available 4Q 1987. 
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O operating system is 
Fees to include all the 

functions that creative 
programmers will demand. It 
appears that Microsoft, bene- 
fiting from past experience, 
has purposely designed OS/2 
so that third-party develop- 
ers Can more easily add func- 
tions to it. Yet to maintain an acceptable degree of 
quality assurance, Microsoft wanted to make sure that 
any additions would fit seamlessly into the whole system 
without compromising its reliability. This article is a 
brief survey of the mechanisms included in OS/2 to allow 
this, and in particular, the concept of dynamic linking. 

Briefly put, a dynamic link is an external reference 
that is not resolved at the time the program is linked. 
Instead, the connection to the external routine is made 
either while the program is being loaded or sometimes 
even later while it is executing. 

Dynamic linking isn’t a novel idea; it was fundamental 
to the operation of the Multics system (the Intel 80286 
has some intriguing similarities to the GE 645, the 
Multics host) and readers of the DDJ Forum on Compu- 
Serve have told me that the Prime operating system 
PRIMOS and UCSD Pascal have similar features. 


Preparing a Dynalink Library 

Here’s how dynamic linking works in OS/2. You design 
and build a package of code that will be useful to more 
than one program. At first you store its object code in 
an object library as usual and test it by linking it in the 
usual way with the programs that use it. When your 
package is in something like its final form, you run it 
et Se athe oat ie ce ee RO OER Sy 
David E. Cortesi, 415 Cambridge St., #18, Palo Alto, CA 
94306. Dave is a former DDJ columnist. 
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by David E. Cortesi 


Built-in facilities for the 


third-party extension of OS/2 











alone through the linker in a 
special pass. You also supply 
a description file that tells 
the linker that this code will 
be a dynamic link library, or 
a dynalink, as it’s come to be 
called. In the description file 
you specify the names of all 
the entry points that will be 
publicly available in this package. You may also specify 
attributes for individual segments; I'll come back to 
those later. 

The linker processes the object code much as it does 
in MS-DOS, merging segments by class and group, 
resolving internal references between segments, adjust- 
ing offsets to account for merged segments. One step of 
linking in OS/2 is different from that with MS-DOS. In 
MS-DOS, the linker’s output is a single, monolithic 
binary image in which the input segments have lost 
their individual identity. In OS/2, the linker keeps seg- 
ments separate in the executable file. That’s necessary 
so that the system loader can load a program one 
segment at a time, as it must do in order to build a local 
descriptor table (LDT) for the 80286 hardware. 

The processed segments of your package of subrou- 
tines go into a file that has the same format as an OS/2 
executable (.EXE) file, but by convention a dynalink 
library has the file type description. If your package is 
THEGOODS, its code will be linked as THEGOODS.DLL. 
That is all that needs to be done for code that will be 
bound to its caller very late, during execution time, but 
that’s a rare use. 

Most dynalink libraries need to be known to their 
client programs at link time. In that case, one more 
processing step has to be done. A utility called IMPLIB 
reads the description file and writes an artificial object 
library that can be used at link time. Applied to the 
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as 


description file for your package, this produces a very. 
small file named THEGOODS.LIB. 


Using a Dynalink Library 

Now client programs can begin using your package. 
They declare its entry points just as they would declare 
any other external references, whether in assembly 
language: 


extern GoodyA far 
or in Pascal: 


Procedure GoodyB(c:char); 
external; 


or in C: 
extern int far GoodyC ); 


And the calls to the package’s procedures are written 
just as they would be if the package were to be linked in 
the usual way (which it might still be in some Cases). 
When a client program is linked, the import library, 
THEGOODS.LIB, is one of the libraries input to the link. 
The object records in it are special. They don't contain 
object code; they only tell the linker the name of the 
dynalink library (THEGOODS.DLL, remember?) and the 
names of the entry points that it exports for use. The 
linker writes a table of these names into the linked 
program (let’s say it’s CLIENT.EXE) and pointers to 
where the references occur in the linked segments. 


Load Time Linking 

Eventually CLIENT.EXE will be loaded for execution. The 
linked segments of code and data will be brought in 
from the disk file—if necessary. It might not be neces- 
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sary because it is possible to tell the linker to mark any 
segment ‘load on demand.” In that case, the OS/2 loader 
won't load the segment but will only set up the local 
descriptor table to cause a hardware trap if the segment 
is referenced by an instruction. When and if that hap- 
pens, the segment will be loaded. 

Once it has storage copies of the program's segments, 
the loader processes dynamic links. The linker has given 
it the character string file name of the dynalink library 
and the names of the entry points needed. The loader 
looks up the file; it has to be found in a directory 
designated in the system configuration file. 

The system may not have to load the segments of 
dynalink code. Dynamically linked code segments are 
shared among all clients that use them, so if CLIENT.EXE 
is the second instance of a program that uses 
THEGOODS, no disk input will be needed for code 
segments. 

Because a dynalink library has precisely the same file 
format as a .EXE file, the process of loading dynalink 
code is really just an extension of loading a program. 
The only extra step is that the loader has to fix up the 
external references in the client code. Because the 
process is so similar, there’s no reason why code in one 
dynalink library shouldn't call code in another one, and 
that in a third, and so on. 


Benefits of Dynamic Linking 

Some of the benefits of dynamic linking are clear at 
once. There’s an economy of disk space: whereas under 
MS-DOS every client program contains a copy of the 
common code, OS/2 stores only a single copy in the 
dynalink library. There’s economy of memory because 
only a single copy of common code is kept in storage. 
There’s economy of load time because only the needed 
segments are brought in from disk. (What's faster than a 
disk cache? Not doing the disk input at all!) 
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OS/2 DYNAMIC LINKING 
(continued from page 19) 


These features would be enough to justify extensive 
use of dynamic linking. And OS/2 does use it extensively. 
The whole interface to the operating system is based on 
it. All the OS/2 system functions are presented as exter- 
nal procedures that programs declare and call. And all 
of those system procedures are defined by code in 
dynalink libraries with names such as DOSCALLS.DLL, 
VIOCALLS.DLL, and MOUCALLS.DLL. As a result (and in 
sharp contrast to MS-DOS), it is actually easier to use 
OS/2 system calls from a high-level language than it is to 
use them from assembly language. 

I promised this would be a discussion of system 
extensions; here’s where the connection is made. Be- 
cause the entire programming interface to OS/2 is 
through dynalinks—and because dynalinks may them- 
selves call DynaLinks—any new dynalink library is a 
functional extension to OS/2 on an equal footing with the 
system code itself. There aren’t any special interfaces, 
no magic incantations that only gurus may use; there 
isn't the sharp distinction between, say, ordinary pro- 
grams and TSR programs that exists in MS-DOS. There 
is just the hierarchy of functions available in DynaLink 
libraries, with the OS/2 kernel dynalinks at the base of 
the pyramid. 

And there is no lack of function, either. Don't suppose 
that, because a system extension is restricted to the 
same facilities that any program might use, it isn't 
possible to write interesting system extensions. There 
are a few limitations, and I'll mention them shortly. But 
consider this: all the functional extensions to be sup- 
plied in the IBM Extended Edition of OS/2 (database 
facility and multiple communications protocols) as well 
as the whole of the Microsoft Presentation Manager 
(protect-mode Windows), all of this code will be sup- 
plied as dynalink libraries. There won't be any features 
added to OS/2 at a kernel level to support them—they’re 
all there in 1.0 and available (to high-level languages, 
remember) as dynalink calls. So if you repackage your 
B-tree access method as a dynalink library, it will use the 
same kernel functions and be exactly as accessible to its 
clients as IBM’s database facility is to its. 

Let's explore some of the subtleties of dynamic link- 
ing. Return to the point at which you are linking your 
package of code into a dynalink file. A ‘definition’ file 
must be given to the linker to describe it. A definition file 
may be used when linking any program; that’s how you 
tell the linker to mark a program segment for deferred 
loading. But there are two definitions that will most 


often be applied to DynaLink segments—one is shared 
data; the other is IOPL code. 


Shared Data Segments 
By default, data segments are not shared between pro- 
grams. Instead, a new copy of a data segment is loaded 
from the .EXE or .DLL file for each instance of a program 
that uses it. That fits the expectations of most programs: 
you don't ordinarily think of a segment of data as being 
accessible to two or more concurrent programs at once. 
You can tell the linker to mark a data segment 
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“single,” however—that is, that there is to be only one 
instance of that data segment in storage no matter how 
many client programs might have concurrent access to 
it. This simple concept forms the basis for some sophis- 
ticated applications. 

Recall that, although such a data segment is common 
to all client programs, it isn’t directly accessible to them. 
The data segment is linked with your code, not (directly) 
with the client program. If it doesn’t contain any ex- 
ported entry points, there is no way in which a client 
program can form.an external reference to it. Though 
there are ways in which determined programmers could 
find out its segment address, there is no way they could 
find out how you arrange and manage its contents 
unless you tell them. The only convenient way that 
client code can access a dynalink data segment (shared 
or not) is by calling the procedures in the dynalink 
package. 

Because a shared data segment is dynamically linked, 
it will be loaded with the first client program to request 
the package. It will remain in storage so long as at least 
one client program does. (If it’s important to keep your 
dynalink package in storage at all times, you can write a 
dummy client program and start it with a statement in 
the configuration file.) The segment is an island of static 
data that your code can address easily (because it was 
linked with your code) but that only your code knows 
how to address. You can use it for a shared buffer pool, 
or for queues of work (however your package defines 
“work"), or generally for any kind of pooled resource 
that your package can usefully manage on behalf of 
multiple concurrent client programs. 

You can't predict how many clients may be executing 
in your package at any instant; there might be none or 
there might be dozens! But the OS/2 kernel has plenty of 
functions to help you manage shared data in a 
multiprogramming environment. There’s a complete, 
and quite efficient, set of semaphore operators, so you 
can serialize access to the data. There’s a generalized 
queueing facility so that multiple ‘writer’ threads can 
queue data (using a variety of queue disciplines) for a 
single “reader” to process. There's a storage suballoca- 
tion facility that has built-in serialization so multiple 
threads can allocate and free pooled storage concur- 
rently. 


I/O Privilege and Devices 

In OS/2, application code runs at privilege level 3, in the 
80286 scheme of things. The I/O privilege level is set at 2, 
so application code that tries to do an I/O instruction 
will trap out and be terminated. Any code segment, 
however, dynalink or not, can be marked at link time as 
being eligible for I/O privilege. Code in such segments 
may request access to a range of I/O port numbers from 
the kernel and then may do I/O instructions, including 
setting and clearing the interrupt flag. 

There are serious restrictions on this I/O privilege, 
however. There is no way that application code can get 
control on an I/O interrupt. There is no way that 
application code can lock a segment in storage so as to 
use it for a DMA buffer. And because OS/2 is slicing time 
among potentially many programs, polling an I/O port is 
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A Number of Reasons A Number 


Thousands of DOS Programs PC-MOS/386™ 

@ gives you the best of the past, and the best for your 
future. Which means that while PC-MOS/386™ totally replaces 
~ your old DOS, you won’t have to replace the programs you’ve 
spent a lot of time learning. 
: And it all happens so effortlessly. You’ll continue 
to reap the benefits of your favorite DOS programs, 
while entering a new arena of power. 

=> Thinkofit! Programs like dBASE III, 
> WordPerfect, Lotus 1-2-3 and Sym- 
phony, WordStar, MultiMate... literally 
thousands of DOS programs-all com- 
& patible and multi-user available. 
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] Designed Basis 

e for the 80386 There’sa 9 14 

revolution taking place in desktop computing, A revolution 
that’s been launched by a square wafer of silicon known as the 
80386 microprocessor chip. It puts minicomputer potential at 
PC users’ fingertips. It’s a fact that virtually every leading PC 
manufacturer has built a “box” around this chip. And it’s a fact 
that the “New Operating System” will, supposedly, even run < 


on it. But, it’s also a fact that ther system wasn’t designed for 
the 80386. Oursis. Andit’s , f\ called PC-MOS/386™ 
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PC and PS/2 BF Familiar ae 
e Compatible e Commands —— 






In designing PC-MOS, we Like DIR and COPY 


_ knew our first priority was Justasyoudon'thaveto | 
to exploit the minicomputer _!earn a whole new array of [=a 
capabilities of 80386-based software to take advantage of PC-MOS/386"" neither do you 
PCs & PS/2s. But we went _ have to learn an entirely new set of commands. 
further, and developed a Instead, the system builds on the knowledge you already 

§ system which would be fully have. “COPY” still copies files, and “DIR” still gives you a 
compatible with the millions of J existing PCs, PC ATs, and _directory listing. As you might expect, we didn’t stop there. 
PC-compatibles. Power without if sacrifice. You’d expect There’s a wealth of features that have strengthened the com- 
nothing less from the new standard bearer. mands you know, making them more powerful and easier to use. 





One, Five, Up to Twenty-five Users 
@ From the beginning, PC-MOS/386™ was 
designed as a versatile operating system which 
could support twenty-five users as easily 
as it supports one. The system comes in 
single, five, and 25-user modules, so 
you're able to start with what you need 
and expand when you’re ready, 
In a multi-user setting, PC-MOS/386™ uses the 


You can choose from a variety of work- 
stations. Mix and match dumb terminals 
costing under $500 each with PCs and 
PS/2s running our terminal emulation 
software. 

All of the host’s resources can be 
| shared. Programs, data, hard disks, 
tape backup units & printers (including 
high speed laser printers) are suddenly available to all 
computing power of the host PC to drive workstations =I users. An 80386-PC has minicomputer potential. 
linked to standard RS-232 ports. | With PC-MOS/386™ you can “mini” your micro. 
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Concurrently Supports Virtual 8086 and 
e 80386 32-Bit Mode 








80386- based PCS & PSI 2s are dual- pia canaiaiess Tb 

run DOS programs, they act as PCs with a 640K memory limit. 
But to take advantage of their minicomputer capacity, they operate 
in true 80386 mode which lets them address up to four gigabytes 
of memory. PC-MOS enables the 80386-host and its workstations 
to independently switch between these modes-making DOS 
compatibility and 80386 power simultaneously possible. 


Multi-Tasking 

@ While it’s true you could look else- 
where for multi-tasking, why would you 
want to? The other multi-tasking operating “9 
system is not now, nor is it planned to be, 
multi-user. It won’t even run multiple DOS appli- 


cations in multi-tasking mode. 
Now consider PC-MOS/386™ At the touch of a key, 


dBHac 


you can switch between up to 25 different tasks. And if you have 


workstations connected to a host, they get multi-tasking, too. 
Finally...a system that won't hold you back. 









File/Record Locking and 


8, Security When you decide to 
implement either a network or a multi- 
user system, there’s a two-fold problem 
which must be solved: protecting 
your work from accidental misuse 
and securing it from intentional theft. 
PC-MOS/386™ solves both aspects of this problem. Password 
protected security allows you to assign file, directory, and task 
access to each user. Plus, files and records are locked using either 
PC-MOS’ proprietary system or NETBIOS emulation. 























e Access ~ 


It’s been said that information is 
power...which makes PC-MOS/386™ a dectly We weapon to your 
competition. Imagine on-the-road salespeople being able to file 
call reports and access your latest inventory data. Picture execu- 
tives being able to access your corporate database from across 
the country, or around the world-giving them the information 
they need, when they need it. 

Visualize branch offices tapping time-critical data with 
nothing more than a modem and a workstation. Working at a 
home office in the evening or over the weekend suddenly gets 
awfully productive. And that makes good business sense. The 


kind of sense you can’t afford to be without. 


| The Price...As you 

@ cvaluate operating systems, 
ask yourself if it’s reasons you're consider- 
ing...or rhyme. Ask if you’re getting a 
system for tomorrow, or one that was made 
for yesterday. See if you're being forced to buy 
new hardware because of their software. 
And consider this. 

Only one operating system in the world can 
give you the raw power, features, and — that you 
demand. Its name is PC-MOS/386"°-<<y 
And it’s immediately availablein @& 
one, five and 25-user versions starting 
at $195. 
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PC-MOS/386™ is a trademark of The Software Link, Inc. PS/2, PC AT, NETBIOS, dBASE III, 
MultiMate, WordPerfect, Lotus 1-2-3 & Symphony, & WordStar are trademarks of IBM Corp., Ashton-Iate, 
WordPerfect Corp., Lotus Development Corp., & MicroPro, respectively. Prices and technical specifications 
subject to change. Copyright © 1987. All Rights Reserved. 


For the dealer nearest you, In Georgia: — International/OEM Sales: Resellers/VARs: 
CALL: 800/451-LINK 404/441-2580 404/263-1006 404/448-5465 


3577 Parkway Lane, Atlanta, GA 30092 Telex 4996147 SWLINK FAX 404/263-6474 
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OS/2 DYNAMIC LINKING 
(continued from page 20) 


impractical as well. 

As a result, a package based on a specific piece of 
hardware will have to include a device driver. Device 
drivers have access to a set of kernel functions to assist 
them in translating between virtual and real addresses, 
in locking storage, in fielding interrupts, and so forth. 

Unfortunately, OS/2 device drivers are even harder to 
write than MS-DOS device drivers. The reason is the 
uncertainty about the machine state at the time an 
interrupt occurs. The system might be operating in 
real-address mode in the simulated DOS 3.3 environ- 
ment—or it might be operating in protect mode. The 
interrupt-handling code of a device driver has to be able 
to operate in either mode. Furthermore, the split be- 
tween the ‘strategy’ and “interrupt” halves of a device 
driver, a split that was only formal in MS-DOS, is real in 
OS/2. The strategy routine has to start, or queue, the 
work to be done and then get back to the kernel pronto, 
and the interrupt routine has to be able to operate 
asynchronously. 

The expanded support for the JOCtl system call might 
make some device-centered packages easier to design. 
Application code can exchange data with device driver 
code through this call. (The distributed OS/2 device 
drivers support an elaborate scheme of “generic” JOCt! 
calls that bring a degree of device independence to this 
very low level of the system.) If I were designing a 
package based around a piece of hardware, I would try 
very hard to put as little function in the device driver as 
possible and reserve as much as possible to dynalinked 
code. I'd use the device driver to lock segments in 
storage and to field interrupts. Everything else could be 
done from dynalinked code that used the device driver 
as its private resource. 


Dynalink Descriptors 
Because I'm into technical details here, I might as well 
explore a strange addressing problem. This item is 
merely a sidetrack intended for those who know the 
80286 hardware well; others can just skip ahead to the 
next section. 

You might suppose that, as dynalink segments are 
shared across clients, they must be addressed through 
the Global Descriptor Table (GDT). Not so. OS/2 appears 
to reserve the GDT for kernel code and system data 
objects. Application code segments and dynamic link 
segments all go in the LDT of each task. It’s also possible 
to share dynamically-allocated data segments between 
programs, and these shared segments also are ad- 
dressed through the LDT, not the GDT as you might at 
first expect. 

The reason is probably security. Dynalink code isn’t 
meant to be a global resource; it’s linked to a specific 
client program or programs. Shared segments are only 
for the use of the clique of programs sharing them. By 
putting their descriptors in the LDTs of the using 
programs, the system ensures that only the right pro- 
grams can use them. 

Those who know the 80286 really well will immedi- 














ately spot a problem. Loaded code often contains far 
pointers to its own segments, and far pointers are | 
constants embedded in the code. It follows that a 
dynalink segment must use the identical segment ad- 
dress in every LDT in which it is entered. If it didn't, its 
embedded far pointers would be correct for a call from 
some tasks but not from others. 


In order to make that happen, OS/2 has to treat the 
8,191 possible entry indexes into an LDT as a global 
pool—even though an LDT is a private resource of one 
program. When a dynalink library is first loaded, it is 
assigned a set of descriptor table entry numbers from 
the pool. It will use those segment numbers in whatever 
program's table it appears, and no other segment can 
use those numbers until this dynalink library loses its 
last client and is unloaded. There's clearly a potential for 
creating large, sparse LDTs. It remains to be seen if that 
will be a problem in production systems. 


Errors and Exit Lists 

Very well, a client program called your InitGoody entry 
point, then called your StartGood entry point to begin a 
complex operation. And now the client program has 
done something foolish and has been terminated by the 
system, leaving your shared data segment or I/O device 
in a halfway condition, storage allocated, semaphores 
uncleared. Other clients will suffer. That’s not good; it’s 
a principle of OS/2 design that one program’s disasters 
shouldn't affect other programs. 

For every program, the OS/2 kernel maintains an exit 
list—a list of code addresses that want to get control 
before the program is terminated. There’s a system call 
to enroll an entry point in the exit list. You'd use it from 
the InitGoody entry point, enrolling your GoodyByBy 
procedure as an exit procedure. Now if the client makes 
a serious mistake, OS/2 will call your code and you can 
clean up the debris. 

The reason it’s a list, not just a single address, is that 
the OS/2 design anticipates that an application might be 
using several dynalink libraries and every one of them 
might want to register its own exit procedure. There's 
no promise about which one will be called first, but that 
shouldn't matter. Each one should only be concerned 
with resources that are in its private domain and none 
should even be aware of the others. 


Device Monitors and Replacement Functions 
The OS/2 named devices (PRN, LPTn, COMn, SCREENS$, 
and KBD$) can be opened as files and used via file 
handles, just as under MS-DOS. Or they can be ad- 
dressed as device drivers using the generic JOCtl system 
calls. The keyboard, screen, and mouse are also sup- 
ported by dozens of system calls with names such as 
KbdCharIn, VioWriteCells, and MouGetPtr. All these are 
directly available to dynalink code, as they are to appli- 
cations. 

There are yet two more levels of control over device 
/O. Although available to any code, they're sufficiently 
complex that they'll probably only be used in dynalink 
packages. These are device monitors and replacement 
functions. 

A device monitor is a piece of code that monitors the 
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Stunning speed. Unmatched performance. Total flexibility. Simple 
and intuitive operation. The newest VEDIT PLUS easily satisfies 
the most demanding computer professional. 


The free demo disk is fully functional—you can try all features 
yourself. Best, the demo includes a dazzling menu-driven tutorial 
—you experiment in one window while another gives instructions. 


The powerful “macro” programming language helps you eliminate 
repetitive editing tasks. The impressive demo/tutorial is written 
entirely as a “macro—it shows that no other editor's “macro” lan- 
guage even comes close. And VEDIT PLUS is only 40K in size. 


Go ahead. Call for your free demo today, You'll see why VEDIT 
PLUS has been the #1 choice of programmers, writers and engi- 
neers since 1980. 


The installation lets you pick from closely emulating the keyboard 
layout of Word Perfect, WordStar and others. Or you can easily 
Create your own layout and even your own editing functions. Sup- 
ports any screen size—you pick screen colors and attributes. 


Supports the IBM PC, XT, AT and PS/2. Also supports MultiLink, 
PC-MOS/386, Concurrent DOS and most networks. Also avail- 
able for MS-DOS, FlexOS (protected mode), CP/M-86 and CP/M. 
(Yes, we support windows on most CRT terminals, including CRTs 
connected to an IBM PC.) Order direct or from your dealer. $185. 


Special: VEDIT (single file, no windows) for CP/M—$49. 


@ leieVideo 


VEDIT and CompuView are registered trademarks of CompuView Products, Inc. BRIEF is a trademark 
of UnderWare, Inc. PMATE is a trademark of Phoenix Technologies Ltd. Norton Editor is a trademark 
of Peter Norton Computing Inc. MultiLink and PC-MOS/386 are trademarks of the The Software Link, 
Inc. CP/M and FlexOS are trademarks of Digital Research. MS-DOS is a trademark of Microsoft. 


*Also available for Tl Professional, Tandy 2000, DEC Rainbow, Wyse WY700 and others. 
*Demo disk is fully functional, but does not readily write large files. 
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Call 1-800-45-VEDIT for 
FREE Fully Functional Demo Disk 


e Fully Network Compatible 
e Call for XENIX-286 version 
e 30 Day Money-back guarantee 


‘Off the cuff macros 
Built-in macros 
Keystroke macros 
Multiple file editing 
Windows 
Macro execution window 
Pop-up menus 
Execute DOS commands 
Automatic processing of 
Compiler errors 
“Cut and paste” buffers 
Undo line changes 
Paragraph justification 
Convert to/from WordStar 
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43 line EGA support 
Manual size/index 


Benchmarks in 120K File: 


2000 replacements 
Pattern matching search 
Pattern matching replace 
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stream of data bytes that flow between a device and a 
program. The monitor receives a data packet with a call 
to the DosMonRead dynalink function and is expected 
to pass the packet on with a call to DosMonWrite. But 
there's no rule that it has to pass on every packet or that 
it pass on the same number of packets. A monitor is free 
to censor the data stream, to generate new packets, or 
to substitute packets. 

Consider a monitor for the keyboard data stream. It 
sees all keystrokes, each neatly wrapped up in a “data 
packet” with flags for the current shift state and a 
millisecond time stamp. It can interpret the keystrokes 
as it wishes and substitute for them. In short, a key- 
stroke monitor may be a keyboard “macro” program— 
and it doesn’t have to field interrupts or be loaded in 
any special way. 

A keyboard monitor is created by system calls. A 
program could set up its own keystroke monitor, but 
more likely one would be set up in dynalink code (and 
torn down in an orderly way in an exit procedure). 
Because it’s easy to set one up, there can be more than 
one. OS/2 permits a whole pipeline of keystroke monitors 
to exist, each one getting the output of the last and 
providing input to the next, and they don’t have to be 
aware of each other. 

There is a separate logical keyboard for each of the 16 
“screen groups,” and a keystroke monitor sees only the 
strokes from the keyboard of one screen group (not 
necessarily the one its code is running in!). The printer 
devices, however, are global to all screen groups. A 
printer monitor sees all the data passing to its printer 
from all processes in the system. Data packets contain 
the process ID that produced them, and “open” and 
“Close” packets are visible. This is the basic function 
needed to build a print spooler: a program that inter- 
cepts multiple data streams, saves the data on disk, and 
sends files on to the printer in orderly sequence. An 
extremely rudimentary spooler is built on this facility 
and distributed with OS/2, but there is plenty of scope 
for better ones to be built. There are intriguing possibili- 
ties for building completely transparent support for 
network printers and for building filters that translate 
printer control codes for one make of printer to an- 
other's. All of this happens, remember, at the level of 
application code, without any requirement for I/O privi- 
lege or hardware dependency. 

The dynalink libraries distributed with OS/2 contain, 
as I mentioned, dozens of system calls for using the 
keyboard, the mouse, and the screen. The screen calls 
contain all that’s necessary for a full-screen editor, for 
example. 

The distributed code, however, assumes the presence 
of an IBM-compatible keyboard, an IBM-compatible 
screen adapter, and one of a small number of mouse 
devices. That isn’t enough. The OEMs that sell OS/2 
systems will have the know-how and development tools 
to build replacement device drivers and dynalink librar- 
ies that support their particular hardware under the 
standard calls. But there will be times when the code for 
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a keyboard, mouse, or screen operation should be 
replaced at the level of an individual program or an 
individual screen group (multiple programs may run in 
a single screen group). 

This need is provided for. It is possible for a program 
to ‘register’ a replacement procedure for almost any of 
the supplied mouse, screen, or keyboard calls. From the 
moment of registration, whenever the supplied function 
is called, control will be transferred to the registered 
replacement. That procedure gets the same stacked 
parameters as the original function would have seen. It 
may choose to interpret them in a different way (permit- 
ting access to a wider screen, for example), or apply 
them to the hardware in a different way, or censor or 
expand on them in the manner of a device monitor, or 
perhaps just record them for performance monitoring. 
The Presentation Manager will probably use this facility 
to take over the mouse and screen calls in the screen 
group that it controls. 


Run-Time Linking 

I alluded to the ability to do a very late dynamic link, 
after the program has been loaded and while it is 
executing. There is a system call that will take the file 
name of a dynalink library and load it, returning a 
handle. There is another call that takes such a handle 
and the character name of an entry point and returns a 
far pointer to the entry point. The calling program may 
then call the dynalink entry point. 

This isn't genuine linking because calls to the external 
code can't be freely embedded in the caller’s code. Calls 
have to be indirect by way of pointers in storage, and the 
linkage must be established with the explicit system 
calls. Still, it’s a facility with some important uses. 
Basically, it gives a program the ability to configure its 
own contents at run time. The components of a large 
subsystem may be linked independently, each as a 
dynalink library. The kernel of the subsystem may decide 
at execution time which of its components ought to be 
loaded. A communications subsystem, for example, 
might dynamically load its components for different line 
protocols in this way, as needed. 


Coding Dynalinks 
Between dynamic linking, exit lists, device monitors, and 
replacement device functions, it ought to be possible to 
extend OS/2 in about any direction. Some extensions are 
more obvious than others. For instance, a dynamic link 
library would appear to be about the ideal way to 
package a compiler’s run-time library. Think what a 
reduction that would make in the size of compiled 
programs! Unfortunately, it looks as if the languages 
released with Version 1.0, at least, will have their run- 
time code in the old-fashioned kind of object library. 

Something else obvious is that it would be very 
desirable to write dynalink modules in high-level lan- 
guages. Here, alas, you run into a major glitch in the 
system design. The code generated by the IBM/Microsoft 
C, Pascal, and FORTRAN compilers is not suitable for 
dynamic linking! 

The reasons aren't too hard to understand. A dynami- 
cally linked module can be entered from different pro- 
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You’ve got better things to do than repeat the same steps. 

Over. ..andover.. .and over. Up your productivity with 
Greenleaf Software. 

With more than 70 new functions added to our popular libraries, 
Greenleaf is now the most complete and mature C language function 
resource available. It’s no wonder we’ve been rated the best. Winning 
program developers in major corporations such as IBM, EDS and GM 
have proven our reliability in thousands of applications. 


Step Lively 

New Greenleaf Functions v.3.10 includes 295 of the functions you’ve 
been asking for — DOS, disk, video, color text and graphics, string, 
time/date, keyboard, plus many more! With Greenleaf, 
you'll finish faster. 


Cut Corners 

When it comes to merging information, the new Greenleaf Comm 
Library v.2.10 is the fastest communications facility of 
its kind. Over 120 functions — ring buffered, 
interrupt-driven asynchronous communications. And, 
only Greenleaf gives you the power to build a 16-port 
communication system. 


Get on the Fast Track 
Order your new Greenleaf library today! See your 
dealer or call 1-800-523-9830. 
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Greenleaf Comm Library $185.00 
Greenleaf Functions $185.00 
Greenleaf DataWindows $225.00 
Greenleaf C Sampler $ 94.50 
Digiboard Comm4 $325.00 
Digiboard Comms $535.00 


In stock, shipped next day. 
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Greenleaf DataWindows 


and Turbo C 

DataWindows, the finest C 
programming windows tool 
available, puts windows, transaction 
data entry and menus at your 
fingertips. 

Our new TURBO C versions are 
ready to get you going fast! And, 
our new 3-in-1 C Sampler for only 
$94.50 supports both Turbo C and 
Quick C with comm, windows, 
menus and more! Our libraries 
support all popular C compilers for 


Call Toll Free: 


O00-323-7630 


In Texas and Alaska: 








Greenleaf Software, Inc. 
16479 Dallas Parkway, Suite 570 
Dallas, Texas 75248 
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grams. It has to be prepared to use its caller’s stack, and 
it cannot make any assumptions about the way its caller 
uses registers. Unfortunately, the code from most com- 
pilers does make assumptions about registers, lots of 
them. The IBM/Microsoft compilers are particularly de- 
pendent on two assumptions that just aren't true on 
entry to dynalink code: that ss=ds and that ds bases 
DGROUP. 

Neither of these is a big problem. The assumption that 
the stack and data segments are identical was a lazy 
coding ploy (don’t bother saving ds, just reload it by 
pushing ss and popping ds) that ought never to have 
been allowed. This assumption isn't true in large-model 
C anyway, so it shouldn't be too difficult to eradicate it 
from all the code generators and all the run-time librar- 
ies. 

The assumption is that ds =DGROUP is more subtle. 
Every compiled module has a DGROUP, a segment of 
static data. When object modules are linked, the linker 
merges all DGROUPs into one segment and adjusts the 
offsets in all instructions as required. This works just 
fine for an application program because all its parts are 
linked in one run. Whatever object code it includes 
references the same DGROUP. But the code of a Dyna- 
Link library is linked in a separate run. The pieces of its 
DGROUP are formed then, and its DGROUP is nothing 
like the DGROUP formed when its clients are linked. 

But a compiler’s code generator may assume that 
there is only one DGROUP and that ds addresses it at all 
times after the initialization of the module. That ain't 
true when a dynalink procedure is entered; then DS 
addresses the caller’s DGROUP. What's lacking is that 
the prologue to any public procedure should contain 
the sequence familiar to any assembly-language pro- 
grammer: 


push ds 


PERISCO 





sszKeeps you going full steam 
ahead when other debuggers 
let you down. With four 
models to pick from, you'll 
find a Periscope that has just 
the power you need. 


.. . Start with the model that fits your current needs. If 

you need more horsepower, upgrade for the difference in price plus $10! 
And don't worry about having a lot more to learn . . . Even when you 
move to the most powerful model, Periscope III, an extra dozen com- 
mands are all that’s involved. 

Periscope’s software is solid, comprehensive, and flexible. It 
helps you debug just about any kind of program you can write . . . 
thoroughly and efficiently. Periscope’s hardware adds the power to solve 
the really tough debugging problems. 

Periscope requires an IBM PC, XT, AT, or close compatible 
(Periscope III requires hardware as well as software compatibility); DOS 
2.0 or later; 64K available memory; one disk drive; an 80-column 
monitor. 


breakpoint board. 





Top-of-the-line Periscope 
lll with real-time, hardware 








mov ax, seg DGROUP 
mov ds,ax 
assume ds:DGROUP 


And, of course, the exit code of any public procedure 
would have to contain pop ds to restore the register. 

Current compilers do not generate this code, and as a 
result the code they produce can’t be used as dynalink 
procedures! Not, at least, unless it has an assembly- 
language front end to switch DGROUPs for it. 

One other irritating problem gets in the way of high- 
level dynalinks. Existing compilers are prone to generat- 
ing automatic checks of one kind or another—for stack 
overflow, for subscript ranges, for whatever. Not all of 
these can be disabled. If even one of them is left, some 
kind of error-handling module will be included in the 
link. But the only way such modules have to handle an 
error is to issue a message to the console, and the only 
way they can seem to find to issue a console message is 
to use the compiler's file /O mechanism, so the pres- 
ence of even one stack check causes a major part of the 
compiler’s run-time library to cascade into the dynalink 
code. And that often brings with it modules that won't 
link properly in a dynalink. 

Microsoft has been thoroughly beaten up on for these 
problems at developers’ conferences and claims to be 
working on solutions. It’d better be working hard. Dy- 
namic link libraries are an extremely attractive facility of 
OS/2, and the first programming languages that support 
them properly will have a competitive edge in a system 
that (Bill Gates confidently says) will have ten million 
users by 1992. 


DDJ 
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Periscope I includes a half-length board with 
56K of write-protected RAM; break-out switch; 
software and manual for $345. 


Periscope II includes break-out switch; software 
and manual for $175. 


<< Periscope II-X includes software and manual 
(no hardware) for $145. 


Periscope III includes a full-length board with 64K of 
write-protected RAM, hardware breakpoints and real-time trace buffer; 


break-out switch; software and manual. Periscope III for machines run- 
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Periscope today! 
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BRIEF 2.0 


Users and industry press alike have 
unanimously proclaimed BRIEF as 
the best program editor available 
today. Now, the best gets better, 
with the release of BRIEF 2.0. 

Straight from the box, BRIEF offers 
an exceptional range of features. 
Many users find that BRIEF is the 
only editor they'll ever need, with 
features like real, multi-level Undo, 
flexible windowing and unlimited 
file size. But BRIEF has tremendous 
hidden power in its exclusive macro 
language. With it, you can turn BRIEF 
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Requires an IBM PC or compatible with 
at least 192K RAM. 

BRIEF is a trademark of UnderWare, Inc. 

Solution Systems is a trademark of Solution Systems. 
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into your own custom editor con- 
taining the commands and features 
you desire. It’s fast and easy. 

Jerry Pournelle, columnist for BYTE 
magazine summed it all up by saying 
BRIEF is, ‘‘Recommended. If you 
need a general purpose PC program- 
ming editor, look no further.’ His 
point of view has been affirmed by 
rave reviews in C JOURNAL, 
COMPUTER LANGUAGE, DR. 
DOBB'S JOURNAL, DATA BASED 
ADVISOR, INFOWORLD AND 
PC MAGAZINE. 





One user stated ‘BRIEF is one of 
the few pieces of software that | 
would dare call a masterpiece’’ 
Order BRIEF now and find out why. 
BRIEF 2.0 is just $195. If you already 
own BRIEE call for upgrade 
information. 

TO ORDER CALL: 1-800-821-2492 
(in MA call 617-337-6963) 
As always, BRIEF comes with a 


30 day money-back satisfaction 
guarantee. 
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Oo an application program in 
‘kc operating systems, a 

read/write request appears to 
take place instantaneously—through- 
put is primarily dependent on the 
YO speed of the devices being ac- 
cessed. For some devices this is an 
acceptable limitation. After all, 
during the interval a program is wait- 
ing to receive user input from the 
keyboard, there usually isn’t any- 
thing for the program to do but 
wait. 

For random-access disk requests, 
however, the data being sought, 
which may not arrive for another 80 
milliseconds or so, may actually 
have been in-hand only moments 
before. If a program had the intelli- 
gence and foresight to save that 
block of data in RAM, there might 
not be any need for disk access at 
all and, as such, no need for that 
80-millisecond delay. 

When accessing disk blocks, it’s a 
common practice to access the 
same blocks over and over again 
and to access other blocks only once 
in a long while. The operating 
system portion of the disk is typi- 
cally the most often accessed—in 
MS-DOS, this section holds the di- 
rectories and the file allocation 
tables (FATs). 

In a multiuser operating system, 
ideally, CPU time is diverted to work 
on some other task when a program 
requests a disk block, with control 
passing back to the primary pro- 
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by Alan Deikman 


Prevent disk bashing 


with RAM caching 





gram as soon as the required data 
becomes available. Overall system 
throughput is thus enhanced at the 
expense of the individual program. 
Even so, there’s no advantage in let- 
ting an application program force 
the operating system to access the 
disk more than is necessary. 

If such a program is used fre- 
quently, the capacity of the entire 
system can be greatly increased if 
each program is optimized for fewer 
time-intensive disk requests. For I/O- 
intensive applications, this becomes 
a critical issue. An accounting or 
database system does very little com- 
putation as a rule, and most of the 
time spent (after the user has en- 
tered input) is spent waiting to store 
or retrieve data. 

Within this context, there are two 
primary options for increasing pro- 
gram performance: 


1. Buy faster hardware. 
2. Reduce the number of actual disk 
accesses required. 


Disk caching is one of the least ex- 
pensive solutions available to the 
programmer to optimize program 
performance. 


Cache Theory 
To make a disk cache, an area of 
RAM is set aside to hold the most 





A RAM-Cache 
Manager in C 


block is identified by block number. 
Whenever a request for a disk block 
read occurs, the cache area is 
checked first to see if the required 
block is available. If it is available, 
no disk access occurs, and the call- 
ing program uses the RAM copy of 
the block. That disk block is then 
tagged “most recently used” (MRU). 
When this happens it is called a 
cache hit. 

If it turns out that a disk access is 
required (because a cache miss oc- 
curred), the block is obtained from 
the operating system as_ usual. 
Before the block is used, however, 
it's copied into the cache area, re- 
placing the “least recently used” 
(LRU) block in the cache area, if any 
exists. It is then marked MRU. 

When a disk block is written, it 
also is placed in the cache as the 
MRU block. In most applications it 
is desirable to write the block physi- 
cally to the disk at that time, but 
sometimes it is better to wait until 
the block becomes the LRU block 
and is about to be overwritten. It is 
possible that the block needn’t be 
written in the first place. 

The routines in this article main- 
tain a two-way linked list, called the 
LRU/MRU chain. The cacallo() rou- 
tine sets up the original linked list 
to include all the blocks allocated, 
as illustrated in Figure 1, page 31. A 
—1 (OxFFFF) flags the end of the 
chain. 

Whenever a block is designated 
the MRU, it is taken out of the linked 
list and reinserted at the end. This 
operation is performed by the func- 
tion cacnew(). If this operation were 
to be performed on block 2 of the 
initial chain, the result would be as 


recently used blocks of data. Each | shown in Figure 2, page 31. 
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Cache Size and Application 

There’s a trade-off between cache 
size and net efficiency. If the cache 
is too small, the likelihood of hits is 
small. On the other hand, if the 
cache is too large, the CPU spends 
more time than necessary looking 
up disk blocks in the cache. (The 
MS-DOS manual warns against this, 
in the discussion on setting up the 
BUFFERS command in CONFIG.SYS; 
the BUFFERS command sets up a 
system cache of 128-byte records.) 

Figure 3, below, shows the curve 
representing an application that 
uses caching with perfectly random 
disk accesses. The left side of the 
curve represents no caching, and for 
small caches a decrease in perform- 
ance occurs. Performance increases 
to some theoretical optimum and 
then falls off. Diminishing returns 
ultimately make disk caching more 
of a burden than a benefit. 

Most applications, however, are 
not truly random in the way in 
which they access the disk. There 
are cases in which disk caching is 
misapplied. Consider the situation 
in which a file is read from begin- 
ning to end. No block is ever read 
twice, so applying disk caching is 
merely adding overhead. If the file 
is one block larger than the cache 
area, and must be rewound and 
read again, then each read on the 
second pass will result in a cache 
miss. Thus it is never desirable to 
apply disk caching to sequentially 
read files of an unknown size. 

In yet another case, when the 
cache memory is bigger than the 
disk file, disk caching becomes su- 
perfluous because it would have 
been better to read the whole file 
into RAM initially, then access the 
blocks directly, than to put up with 
the storage overhead of keeping MRU/ 
LRU information. 

Because there are so many vari- 
ables associated with the efficiency 
of caches, I’ve provided the cacstat( ) 
routine to obtain the statistics of the 
cache, allowing the user to adjust 
the size of the cache for optimum 
performance. The values returned 
are cache hits, cache misses, and 
cache adds. The sum of hits and 
misses represent the total number 
of times the cache was searched for 
a block. The optimum ratio of hits 
to total accesses depends on a 
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number of variables such as_ the 
ratio of CPU/RAM speed to disk aver- 
age access time. 


Multiple Caches 

One of the most glaring failings of 
having an operating system perform 
all the cache work for disk I/O is that 
the operating system isn't in a posi- 





Figure 1: Initial LRU/MRU chain 





Figure 2: After block 2 is made MRU 











tion to discriminate between differ- 
ent types of accesses. Also, most 
systems can't allocate cache 


memory on a dynamic basis. As a 
result, the operating system cache 
can be wiped clean of useful re- 
cords just because the application 
made one pass of an input file, fill- 
ing the cache with records that are 








Cache Size 


Figure 3: Cache size vxs. performance 
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Revision Control System 


With MKS RCS running under DOS, programmers, systems adminis- 
trators, project managers and librarians can efficiently control and 
record the revisions of text files such as programs, documentation, 
graphs, papers, form letters, and so on. This software package: 

¢ resolves access conflicts — for example, it prevents two programmers 
or authors from making simultaneous changes to a file; 

maintains a complete history of changes, including date and time of 
change, author, and reason for the change; 

allows retrieval of any version of the file, by date, release number, or a 
user-assigned name; 

runs quickly because only the most recent version of a file is stored 
— non-current versions are stored as difference-files to minimize 
storage requirements; 

allows divergent versions to branch from the main family of versions 
— these might be test versions of programs, or customized versions 
of documents; 

Programs included in the package: | 

¢ ci — check in RCS revisions rcsmerge — merge RCS revisions 
co — check out RCS revisions ¢ rlog — display log messages 

ident — display RCS identification about RCS files 

information ¢ diff — show minimal file 

merge — three-way file merge differences 

rcs — change RCS file attributes «+ diff3 — show differences among 
rcsclean — clean up work files three files 

rcsdiff — compare RCS revisions 


The entire system for $189. 


Also available: 


The MKS Toolkit: over 110 UNIX-based tools for DOS including the Korn 
Shell, Vi, and AWK, complete with nearly 400 pages of documentation 
and tutorials. The complete package: $139. 

AWK: The 4th generation language fully compatible with the latest 
description in The AWK Programming Language,by Aho, Weinberger, 
and Kernighan. AWK with tutorials and documentation: $75. Both the 
software and The AWK Programming Language: $89. 

MKS Vi: the UNIX screen editor running under DOS at lightning fast 
speeds — it’s tuned for the PC. Comes with Tutorial and Reference 
Manual for $75. 











Mortice Kern Systems Inc., 


43 Bridgeport Road East, Waterloo, Ontario, Canada, N2J 2J4 (519) 884-2251 


uucp: tallegra, decvax, ihnp4 }!watmath! mks! toolkit 
MKS RCS runs under MS-DOS 2.0 or later. riot copy protected. Prices quoted in US funds. VISA, MASTERCARD, 
American Express, uucp, and purchase orders are accepted. Overseas orders please add $10 for postage and 
handling. MKS and MKS RCS are registered trademarks of Mortice Kern Systems Inc. UNIX is a trademark of 
AT&T Bell Labs. MS-DOS is a trademark of Microsoft Corp. 


CIRCLE 115 ON READER SERVICE CARD 























et 





RAM-CACHE MANAGER 
(continued from page 31) 


never read again. If the system is 
multitasking (or multiprocess), the 
situation would be even worse be- 
cause other programs could domi- 
nate the available cache space. 

It's usually obvious to the pro- 
gram designer which disk files 
should be cached and_ which 
shouldn't. A good application for a 
disk cache is a compiler’s temporary 
tables, where using a disk scratch 
file is considered only after RAM 
memory runs out. In B-tree indexing 
subroutine libraries, caching is par- 
ticularly effective in processing look- 
ups and node additions. 

For this reason, all the routines 
provided in this article operate on a 
structure that is pointed to by a 
single variable kept by the calling 
program. This approach allows any 
number of separate caches of vari- 
able sizes to be managed concur- 
rently. 

The cacallo() routine uses the stan- 
dard library malloc() routine to allo- 
cate all memory necessary for the 
cache. It returns a pointer to the 
root structure of the cache that is 
used as a parameter to all the other 
cache routine calls. All the global 
parameters, and pointers to other 
objects, are contained in this struc- 
ture, which is typedefed to be 
CACDS. 

Four parameters are required to 
set up a cache: 


@®the number of records in the 
cache 

@ the length of each record 

®a pointer to an external function 
for processing free records 

®an identifier word (long) to pass 
to the external function 


If the application interface is not 
going to defer the writing of disk 
blocks, a free record-processing rou- 
tine is not necessary. In this case, 
the third parameter provided should 
be a null pointer (char *) 0. The 
identifier word is used when a 
single routine is being used to 
handle the freed blocks from multi- 
ple caches. This value can be used 
by the called routine to identify from 
which cache the record is being 
transmitted. 
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Once again, 
Compaq 
raises the standard 
of performance 
for personal computers. 


This time 
by a factor of two... 
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The new COMPAQ DESKPRO 386/20" 


Last year, we introduced the 
COMPAQ DESKPRO 386™ the 
most advanced personal com- 
puter in the world. Now the world 
has two new benchmarks from 
the leader in high-performance 
personal computing. The new 
20-MHz COMPAO DESKPRO 386/20 
and the 20-lb., 20-MHz COMPAO 
PORTABLE 386 deliver system 


performance that can rival 
minicomputers. Plus they intro- 
duce advanced capabilities, 
without obsoleting your invest- 
ment in software, hardware 
and training. 

Our new computers employ 
an industry-standard 20-MHz 
80386 microprocessor and so- 
phisticated 32-bit architecture. 


But to make these two of the 
world's fastest PC's, we did 
more than just increase the 
clock speed. 

For instance, both are built 
around a concurrent bus archi- 
tecture. Two buses—one for 
memory and one for peripherals— 
eliminate information bottle- 
necks, allowing each component 
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It simply works better. 


most powertul PC’ 
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and the new 20-MHz COMPAO PORTABLE 386” 


to run at its maximum speed. 
Together, they insure the highest 
system performance without 
sacrificing compatibility with 
industry-standard peripherals. 
Both computers offer disk 
caching. Both offer the most 
memory and storage within their 
classes. Both let you run soft- 
ware being written to take ad- 


vantage of 386 technology. And 
both run new MS-DOS’*/BASIC 
Version 3.3 as published by 
Compaq. With it, our new porta- 
ble and our new desktop can 
break the 32-megabyte limit on 
file sizes that handcuffs other 
PC's, allowing you to build files 
up to the size of your entire fixed 
disk drive. 


And from now until December 
31, 1987, both computers come 
with a free package of new 
Microsofte Windows/386 Presen- 
tation Manager. It provides multi- 
tasking and switching capabilities 
with today’s DOS applications to 
make you more productive. But 
that's just the beginning. To find 
out more, read on. 
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The question wasnt 
ut how to get the 
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System Board with 20-MHz Cache Memory Controller Exe en 


135-MB Tape Backup 


Weitek Coprocessor Board 


20-MHz 80386 processor 


300-MB Fixed Disk Drive 


16 MB of 32-bit RAM 











The most powerful personal 
computer 1n the world 








The COMPAQ DESKPRO 386/20 in the world today and even 


is an impressive 50% faster than many minicomputers. 

16-MHz 386-based personal The big reason is the new 
computers. Even more impres- COMPAQ Flexible Advanced 
sive is the fact that it's up to 25% Systems Architecture, which 
faster than other 20-MHz 386's. optimizes overall system 
That's because the processor is throughput while maintain- 
just one small part of how the ing full compatibility with 
COMPAQ DESKPRO 386/20 industry-standard peripherals. 
outperforms every other PC It does this by combining an 


advanced memory caching 
scheme with memory and 
peripheral buses that operate 
concurrently. 

Complementing the speed of 
the microprocessor is the new 
advanced 20-MHz Intel® 82385 
Cache Memory Controller. Like 
an efficient secretary that keeps 
frequently used information 
close at hand, it allows the 
microprocessor to operate at 
O-wait states 95% of the time. 

While one bus handles these 
high-speed operations, another 
simultaneously handles periph- 
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It simply works better. 


how to get to 20 MHz, 
most out of 20 MHz. 





erals operating at the industry- 
standard 8 MHz. 

This flexible approach allows 
you to dramatically increase 
system throughput while pre- 
serving your investment in mon- 
itors, disk drives, and expansion 
boards. It can also accommodate 
today’s and tomorrow's most 
advanced peripherals without 
constraining their performance. 

Take options like our new 
Weitek™ Coprocessor Board. 
Never before offered in a PC, 
it can increase the speed of 
calculation-intensive, engineer- 


ing and scientific applications 
by a factor of six, giving the 
COMPAO DESKPRO 386/20 
the performance of a dedicated 
engineering workstation at a 
fraction of the cost. 

Compaq also provides 130- 
and 300-Megabyte Fixed Disk 
Drives with some of the indus- 
try's fastest access times. And 
when used with disk caching 
software, they represent the 
highest-performance storage 
subsystems available. 

As for memory, Compaq 
offers 32-bit high-speed RAM. 


One full megabyte comes stan- 
dard and is expandable to 16 
megabytes without using an 
expansion slot. Plus, we in- 
cluded the COMPAO Expanded 
Memory Manager. It supports 
the LIM standard so your soft- 
ware can break the 640-Kbyte 
barrier even before OS/2™ is 
released. 

As tasks become more com- 
plex and users demand more 
advanced capabilities, Compaq 
responds by raising the standard 
of performance in personal 
computing. 
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Everyone expected Compaq 
But no one 
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Pound for pound, it is the 


world's most powerful computer 


Compag has long been recog- 
nized as the world leader in both 
80386 technology and portable 
computing. So it isn't surprising 
that we would combine the two. 

But no one expected the new 
COMPAO PORTABLE 386 to run 
at 20 MHz. And no one even 


It simply works better. 


dreamed that it would offer 100 
megabytes of storage, disk cach- 
ing, and much, much more. 
Our newest 20-lb. portable 
computer goes far beyond an 
80386 microprocessor with a 
handle. It's not just the most 
advanced portable in the world. 
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Pound for pound, it's the world's 
most powerful computer. Period. 
Like the recent COMPAQ 
PORTABLE II™ which changed 
the shape of full-function porta- 
ble computing, the COMPAO 
PORTABLE 386 makes no com- 
promises. It offers more speed, 
memory, storage and features 
than any other portable PC. It 
runs your current software up to 
25% faster than 16-MHz 386 
PC's. Beyond that, its perform- 
ance in calculation-intensive 


to introduce a 386 portable PC. 
expected all this. 






applications is increased even 
more when you add an optional 
20-MHz 80387 coprocessor. 

Memory? Get one megabyte 
of 32-bit, high-speed RAM stan- 
dard or go as high as 10 MB inter- 
nally. And like all of the 
COMPAO 386-based PC's, it fea- 
tures the COMPAO Expanded 
Memory Manager. 

With our high-performance 
100-megabyte internal fixed disk 
drive, you can actually fit 500 lbs. 
of data-filled pages into a 20-lb. PC, 


unsurpassed storage for a porta- 
ble. If that's too much for you, we 
also offer a 40-megabyte model. 
We've become famous for build- 
ing desktop computer capabilities 
into our portables without leav- 
ing anything out. The COMPAQ 
PORTABLE 386 is more proof. It 
has a high-resolution, 640 x 400, 
10-inch plasma display; a full- 
size, portable enhanced key- 
board; two industry-standard 
expansion slots in a lightweight, 
optional plug-on unit; a choice 


100-MB Fixed Disk Drive 





40-MB Tape Backup 





20-MHz 80386 processor 








10 MB of 32-bit RAM 





2400-baud Hayes-compatible modem 





51/4-inch 1.2-MB Diskette Drive 





between an optional 2400- or 
1200-baud Hayes-compatible 
modem; a full-size 51/4-inch 1.2- 
MB diskette drive; even an op- 
tional 40-MB tape backup. 

These features, combined 
with the ultimate in portable 
performance, make the 
COMPAQ PORTABLE 386 the 
biggest PC this small. 
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Compaq moves you ahead 
without leaving you behind. 


Compaq offers the most complete 
line of high-performance 386 
solutions. They all run industry- 
standard software and hardware, 
protecting the investments you've 
already made. 

At the same time you won't be 
left behind when other technolo- 
gies become important. Mullti- 
task with existing applications 
using Microsoft Windows/386 
Presentation Manager. Add VGA 


It simply works better. 


graphics if you wish. Run OS/2 
when it's available. And now 
31/2-inch drives are even an op- 
tion for our desktops. 

We optimize the most ad- 
vanced technology while main- 
taining compatibility with the 
past, present and future. This 
makes COMPAO PC's a wise 
decision for serious business 
users. Because at Compaq, we 
don't burn bridges, we build them. 





See the COMPAO DESKPRO 386/20 
and COMPAO PORTABLE 386 at an 
Authorized COMPAQ Computer Dealer. 
And from now through December 31, 1987, 
get Microsoft Windows/386 Presentation 
Manager free when you buy a 386-based 
COMPAQ computer. For more informa- 
tion, call 1-800-231-0900, Operator 40. 
In Canada, call 416-733-7876, Oper- 
ator 40. 

Weitek™ Lotus” Intel’ Microsoft® MS-DOS? 
Hayes, and OS/2™ are trademarks of their 
respective companies. 


©1987 Compaq Computer Corporation. 
All rights reserved. 
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Using the Cache Routines 

All the routines and the typedef for 
the cache structure are in the file 
cache.h, shown in Listing One, page 
62. It's not really necessary for the 
calling routine to have access to 
typedef because the calling routines 
never need direct access to the 
CACDS. 

Cache.h declares the structure in 
typedef, however, so that the calling 
routine can conform to ANSI specifi- 
cations by declaring an external or 
local variable of type CACDS. (With 
most compilers it is acceptable for 
the calling routine to store the re- 
turned value of cacallo() in a charac- 
ter pointer.) 

The cache.h file also provides the 
function declarations necessary for 
function type checking by the com- 
piler. Listing Two, page 62, shows all 
the cache-processing routines, 
which may be compiled separately 
and/or incorporated into a subrou- 
tine library. Listing Three, page 67, 
is a simple test program for these 
routines. 

After the cache has been set up, it 
will have to be checked to see if the 
desired record is already stored 
there. To do this, the cacfind() rou- 
tine is called. If the cache record 
designated by the num parameter 
isn't found, a null pointer is re- 
turned and the calling routine can 
then take the appropriate action. Usu- 
ally this means issuing a read() re- 
quest to get the desired block, then 
adding the record to the cache ac- 
cording to the procedure that fol- 
lows. 

If the cache record is found by 
cacfind(), a character pointer to the 
desired record is returned to the 
calling routine. That record is also 
taken out of its current position in 
the LRU chain and added at the 
MRU end. For example, suppose the 
calling routine is accessing blocks of 
512-byte records and wants to read 
the record whose number is stored 
in the variable recn. The external 
character pointer cache is initialized 
with the return value of an earlier 
call to cacallo(). The code (sans any 
error checking) might appear as 
shown in Example 1, right. 

This example doesn't add any re- 
cords that were read from the disk 
to the cache. A record produced by 


the read() call should be added to 
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the cache at the MRU end because, 
after all, it's the most recently used 
record. Each time a record has to 
be added to the cache, the 
cacnum() routine is called. It is im- 

















char buffer[512]; 
long recn; 
char *rec; 


{ 


lseek(fd, recn * 512, 0); 
read(fd, buffer, 512); 
rec = buffer; 





char buffer{[512]; 
long recn; 
char *rec; 


memcpy(rec, buffer, 512); 
lseek(fd, 512 * recn, 0); 
write(fd, rec, 512); 








if ((rec = cacfind(cache, recn)) == NULL) { 


/* record not in cache, must be read from disk */ 


/* rec points to record to process */ 


/* record number to write */ 
/* pointer to block in cache area */ 


if ((rec = cacfind(cache, recn)) == NULL) rec = cacnum(cache, recn); 
/* copy data into cache area */ 


portant to note that the cacnum() 
routine does not check to see if the 
added record is already in the 
cache. Thus each call to cacnum() 
should be preceded by a cacfind() 


Example 1: Accessing blocks of 512-byte records 











Example 2: Writing blocks of 512-byte records 





Documentation 


isa PAIN! 


... without DocuMotion™ 


We've found that well indexed and easily accessed 

documentation is a powerful tool and asset. Now you can 

simply pop up DocuMotion to access, display and print your 
documentation. DocuMotion builds indexed document libraries 
from documentation contained in your source code or any text file. 


DocuMotion for programmers: 


e Your documentation is available 
ANYWHERE, ANY TIME. 

e Access, display and print your 
documentation by name or by 
user-defined categorization 
trees. 

© 19 function Microsoft Windows- 
style menu bar. 

® Powerful print & copy functions. 


DocuMotion for project mgrs: 
e Programmers produce more and 
better documentation. 


® Reduced function redundancy. 
® Greater programmer productivity. 


NWP - Intelligent Solutions, Inc. 


P.O. Box 20478 





DocuMotion for the PC: 


e Runs memory resident or non- 
resident on any IBM PC/XT/AT 
or compatible. 
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RAM-CACHE MANAGER 
(continued from page 33) 


call. 
The cacnum() routine does the 
following: 


1. Finds the LRU record in the cache 
area. 


char buffer[512); 
/* record number to write */ 
/* pointer to block in cache area */ 


long recn; 
char *rec; 


2. If that record has been marked for 
processing, calls the external free 
block-processing routine. 

3. Makes that record the MRU. 

4. Numbers that record with a new 
number supplied by the calling rou- 
tine. 

5. Returns a character pointer to 
that record. 


{ 
if ((rec = cacfind(cache, recn)) == NULL) rec = cacnum (cache, recn); 


memcpy (rec, buffer, 512); 
cacproc(cache, recn); 


} 


/* copy data into cache area */ 


/* mark the block for processing */ 





Example 3: Code to defer writing records 


write cache(idnt, recn, rech) 


long idnt; /* cache identifier */ 
long recn; /* vecord number */ 
char *rech; /* record buffer */ 

lseek(fd, recn * 3512, 0); 

write(fd, recb, 512); 

return; 


} 


Example 4: Example function to write a record 





Turbo Pascal 4.0 is required. Registered 
owners of Turbo Professional by Sunny 
Hill Software may upgrade for $30. 
Include your serial number. 


yer Hire a Pro for 
Your New Turbo 4.0 


urn on the power of Turbo PROFESSIONAL 4.0, a library of more 
than 300 state-of-the-art routines optimized for Turbo Pascal 4.0. 
You'll have professional quality programs finished faster and easier. 


Turbo PROFESSIONAL 4.0 includes complete source code, 
comprehensive documentation and demo programs that 
are powerful and useful. The routines include: 


Turbo PROFESSIONAL is only $99. 
Call toll free for credit card orders. 
1-800-538-8157 extension 830 
1-800-672-3470 extension 830 in CA 


Satisfaction Guaranteed or your money back within 30 days. 


For other information call 408-438-8608, 
9 AM to 5 PM PST. Shipping & taxes 
prepaid for US and Canadian customers, 
others please add $6 per item. 


TurboPower Software 3109 Scotts Valley Dr., Suite 122 Scotts Valley, CA 95066 


Pop-up resident routines 

BCD arithmetic 

Virtual windows and menus 

EMS and extended memory access 
Long strings, large arrays, macros, 
and much more. 


wun ue 
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To avoid having to copy blocks from 
place to place in RAM, and to elimi- 
nate the need to allocate an external 
buffer, the calling routines should 
access the records through a charac- 
ter pointer returned by cacfind() 
and cacnum(). 

To complete the previous exam- 
ple for reading records, the follow- 
ing code (again without error check- 
ing for simplicity) can be used: 


long recn; 
char *rec; 


{ 


if ((rec = 


cacfind(cache, recn) 
NULL) { 


rec = cacnum(cache, recn); 
lseek(fd, recn * 512, 0); 
read(fd, rec, 512); 


} 


/* rec points to record to process */ 


} 


Writing data records undergoes a 
similar process. A record that is writ- 
ten also becomes the MRU record 
via the cacfind() and the cacnum() 
routines. If the record is already in 
the cache, however, there is no need 
to call cacnum(). The complemen- 
tary routine to the previous one 
might look like that shown in Exam- 
ple 2, page 33. 


Processing Freed Records 
As mentioned earlier, it is some- 
times advantageous to enter outgo- 
ing records (those to be written to 
disk) into the cache without actually 
performing the disk I/O operation, 
then write them to disk only when 
the block within the cache that the 
record is sitting on needs to be used 
for some other purpose. Typically, 
this would be the case for a scratch 
file (such as a symbol table), where 
the file would not even be created 
unless the data overflowed the 
cache. In most other cases, it is best 
to write the data records immedi- 
ately, as in Example 2 

If the writing of data records is to 
be deferred, the third and fourth 
parameters to the cacallo() function 
are used and the cacproc() function 
is used to mark records that are to 
be processed before the space they 
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“How to protect your software 
by letting people copy it?’ 


By Dick Erett, President of Software Security 








Inventor and 
entrepreneur, 
Dick Erett, 


_ explains his 


“company’s 
~ ¢ > view on the 


protection of intellectual 


property. 
cA even sophisticated 
software develop- 

ment companies and the 

trade press seem to be miss- 

ing Or ignoring is this: 
Software protection must 
be understood to be a 
distinctively different 
concept from that com- 
monly referred to as 
copy protection. 


Fundamentally, software 
protection involves devising 
a method that prevents 
unauthorized use of a 
program, without restricting 
a legitimate user from 
making any number of 
additional copies or prevent- 
ing program operation via 
hard disk or LANs. 

Logic dictates that mag- 
netic media can no more 
protect itself from misuse 
than a padlock can lock itself. 

Software protection must 
reside outside the actual 
storage media. The technique 
can then be made as tamper 
proof as deemed necessary. 
If one is clever enough, 
patent law can be brought 
to bear on the method. 

Software protection is at 
a crossroads and the choices 
are Clear. You can give 
product away to a segment 








crucial point that 









the program diskette as you wish. 


Data Back-ups : Use normal back-up and restore 
commands, including backing up sub-directories containing 
program files. 


. oe Networks : This product may be 

. cs. Follow the same installation 
102 of this manual. The Block 
e with the normal operation of any 





Hard Disk Installation : Simply copy progenm disk 
to hard disk using DOS Command - Copy A:*. c: 


Program Back-ups : You may make as many copies of 
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The only difference will be whether you include the option to steal your 
product or not. 


of the market, or take a 
stand against the theft of 
your intellectual property. 


“... giving your software 
away ts fine...” 


We strongly believe that 
giving your software away 
is fine, if you make the 
decision to do so. However, 
if the public’s sense of ethics 
is determining company 
policy, then you are no 
longer in control. 


We have patented a device 
that protects your software 
while allowing unlimited 
archival copies and unin- 
hibited use of hard disks and 
LANs. The name of this 
product is The BLOCK™ 

The BLOCK is the only 
patented method we know 
of to protect your investment. 
It answers all the complaints 
of reasonable people con- 
cerning software protection. 


In reality, the only people 
who could object are those 
who would like the option 
of stealing your company’s 
product. 


‘“...eliminating the ratio- 
nale for copy-busting...”’ 


Since The BLOCK allows 
a user to make unlimited 
archival copies the rationale 
for copy-busting programs 
is eliminated. 

The BLOCK is fully pro- 
tected by federal patent law 
rather than the less effective 
copyright statutes. The law 
clearly prohibits the produc- 
tion of work-alike devices 
to replace The BLOCK. 







The BLOCK attaches to 
any Communications port of 
virtually any microcomputer. 
It comes with a unique 
customer product number 
programmed into the circuit. 

The BLOCK is transpar- 
ent to any device attached to 
the port. Once it is in place 
users are essentially unaware 
of its presence. The BLOCK 
may be daisy-chained to 
provide security for more 
than one software package. 

Each software developer 
devises their own procedure 


for accessing The BLOCK 


to confirm a legitimate user. 
If it is not present, then the 
program can take appro- 
priate action. 


‘*.. possibilities... 
limited only by your 
imagination...” 


The elegance of The 
BLOCK lies in its simplicity. 
Once you understand the 
principle of The BLOCK, 
hundreds of possibilities will 
manifest themselves, limited 
only by your imagination. 

Your efforts, investments 
and intellectual property 
belong to you, and you have 
an obligation to protect 
them. Let us help you safe- 
guard what’s rightfully yours. 
Call today for our brochure, 
or a demo unit.” 





Bs CCUF. it Yine. 


870 High Ridge Road Stamford, Connecticut 


06905 


203 329 8870 
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RAM-CACHE MANAGER 
(continued from page 34) 


occupy is to be overwritten. The 
function specified by the calling rou- 
tine is called with three parameters: 


1. the cache identifier (the fourth 
parameter to cacallo() ) 

2. the record identifier (generally the 
block number) 

3. a character pointer to the record 
to process 


To implement this, the previous 
record-writing routine would be 
changed to’ the code in Example 3, 
page 34. 

The calling routine must provide 
an external function to write the 
record, specified by the initial call 
to cacallo(). When a block marked 
for processing is needed for some 
other purpose, the routine is called. 
An example is shown in Example 4, 
page 34. 

In some applications, a_ block 
marked for processing will become 
obsolete. In this case, the routine 
cacuprc() is called. This routine will 
keep a block from being sent to the 
external function that writes the re- 
cords. 


Closing Down the Cache 
Because cacallo() uses malloc() to 
allocate all the memory the cache 
uses, it’s possible to free that 
memory with cacfree(). All the re- 
cords that are due for postpro- 
cessing are processed at this time 
by using the cacflsh() routine, before 
the library routine free() is called. 


Variable Length Records 

The cache routines presented in this 
article are best suited to small- and 
medium-size caches of large, fixed- 
length records. Typically, the “re- 
cords’ cached are disk _ blocks, 
which contain smaller, logical re- 
cords. When the records are small, 
the linear search would become in- 
efficient in short order. Figure 4, 
right, shows a block diagram of a 
complete application in which inter- 
face programs process requests from 
the applications. 


Conclusion 


The routines provided herein can 
be applied to almost any applica- 
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tion. They were originally imple- 
mented on a Unix System III, 68000- 
based system and were subse- 
quently ported to other environ- 
ments. They work well under MS- 
DOS using all the memory models 
of the Microsoft C compiler, al- 
though a cache of more than 63K 
does not work. 





Availability 
All the source code for articles in 
this issue is available on a single 
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Figure 4: Application interface 
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ARTICLES 


Putting ROM Code 
in Its Place 


ntil recently, developers pro- 
f | gramming for EPROM-based 

applications didn’t have a util- 
ity that would take the standard 
output of MS-DOS tools and spit out 
a file suitable for burning into 
EPROM. After spending the last few 
months longing to use the latest in 
compilers, such as Microsoft’s C or 
Borland’s Turbo C, I decided that 
perhaps the best tack to take would 
be to develop my own locate utility. 

Although it’s an easy matter to 
put the contents of a .COM file into 
an EPROM, programs in .EXE format 
are a different animal altogether. 
Unlike the binary image of a pro- 
gram found in a .COM format, a 
EXE file is a relocatable object 
module, which requires that the seg- 
ment references in a program be 
relocated or adjusted. 

Before the .EXE file can be run, a 
loader must convert the relocatable 
format into an executable, absolute 
object module. In the typical MS- 
DOS system, program loading and 
segment fix-up is performed by COM- 
MAND.COM and as such is transpar- 
ent to the user. The COM- 
MAND.COM loader simply reads the 
relocatable object module _ into 
memory, performs the segment fix- 
up by adjusting the segment refer- 
ences relative to the base segment 
of the load module, then transfers 
control to the program. 

To support relocation, the .EXE 
file is partitioned into two compo- 





Rick Naro is a part time program- 
mer who is interested in software 
development tools for embedded sys- 
tems. He can be reached c/o Para- 
digm Systems, P.O. Box 152, Milford, 
MA 01757 or as naro on BIX. 
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by Rick Naro 


A DOS Locate utility 





nents—a header containing the relo- 
cation information and the actual 
binary load module. Both the 
memory requirements for the pro- 
gram and the initial register values 
are found in the header, so the first 
step of loading the binary image is 
easy. 

COMMAND.COM simply requests 
a suitably sized memory block in 
which to place the load module, 
then reads the binary image into 
that block of memory. Once loaded 
into memory, segment references 
are fixed relative to the base seg- 
ment, using the segment fix-up re- 
cords. When a programmer codes 
the following instruction sequence, 
for example, the assembler and 
linker cannot determine the final 
segment value to be used for the 
data segment, and the fix-up is left 
for the loader to perform: | 


mov ax, data ; Load ax with the data 
segment 
mov ds, ax ; Store in ds 


Instead, the linker inserts the offset 
(or virtual segment) of the segment 
data from the base of the load 
module into the binary object 
module and inserts an entry in the 
segment fix-up record pointing to 
the segment reference requiring fix- 
up. If the program base is segment 
3000h and the virtual segment of 


data is 1234h, the loader will per- 
form the fix-up by adding the two 
and overwriting the segment offset 
with the sum 4234h (which is the 
physical segment for the segment 
data in this instance). Once all seg- 
ment fix-ups have been processed, 
the loader can transfer control to 
the new program. 


An MS-DOS Locator 
For embedded systems, a special 
type of loader called a locator is 
required. A loader is distinguished 
from a locator in two ways: by 
output destination and by the or- 
ganization of the absolute object 
module. Although a loader is de- 
signed to write the absolute object 
module directly to memory (for im- 
mediate execution), the output of a 
locator is an Intel extended hex file 
suitable for EPROM burning. 
Another important feature of a lo- 
cator is its ability to rearrange seg- 
ments at arbitrary addresses to re- 
flect the physical organization of the 
target system. A typical embedded 
system normally contains EPROM at 
the upper addresses for the pro- 
gram code and RAM at the lower 
addresses for data, interrupt vectors, 
and the stack. Because this organiza- 
tion is incompatible with the con- 
tiguous MS-DOS absolute object 
module, relocating the segments to 
new addresses is crucial to the op- 
eration of the locator. When the lo- 
cator has finished processing a .EXE 
file, ROMable code and data will be 
fixed at addresses in the EPROM 
address space and volatile data and 
the stack will be fixed in the RAM 
address space and the segment fix- 
ups adjusted to reflect the rearrange- 
ment of segments. 
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By itself, the EXE file header con- 
tains insufficient information for re- 
location, so the segment map of the 
program along with instructions on 
where the segments will be placed 
in the target system is required. The 
segment map is prepared by the 
linker and identifies each segment 
by name, class, length, and its posi- 
tion within the binary load module. 
The user must also prepare a con- 
figuration file describing the charac- 
teristics of the target system and the 
physical addresses that the program 
segments will bound. Using both the 
map and configuration files, the lo- 
cator can extract and physically relo- 
cate the segments to build the ROM- 
able load module. 

Although a programmer is nor- 
mally concerned with segments, 
they are far too numerous and 
varied in name to be of much use to 
the locator. Instead, the locator 
works with classes. A class is simply 
a tag applied to a segment by the 
assembler or compiler. This tag per- 
mits the linker to group a segment 
with other related segments. 

For example, each separately com- 
piled source file in the large-memory 
model will generate a uniquely 
named code segment, but all such 
segments will belong to the code 


class. Using the locator directives, a 


programmer can fix the address of 
any class and specify the order of a 
set of classes, configuring the abso- 
lute object code for any target hard- 
ware. 

The locator also needs to process 
the segment fix-ups but in a slightly 
different manner from the way the 
loader does. Each segment listed in 
the segment map is given an entry 
in a linked list that contains its seg- 
ment name, length, virtual segment 
number, and physical segment 
number organized by class name. 
When the configuration file is read, 
the base segment used for a class is 
fixed and all physical segment num- 
bers are adjusted by adding this 
value to the segment offset within 
the class. Segment fix-up then can 
proceed with the virtual segment 
number from the fix-up record used 
to scan the linked list looking for a 
match. If found, the corresponding 
physical segment number is re- 
turned and used in the fix-up; other- 
wise, an unresolved segment error 
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is reported. 

Although the location process 
sounds simple, there are two pitfalls 
that must be avoided. As noted pre- 
viously, an MS-DOS .EXE file is de- 
signed to be executed from a con- 
tiguous block of memory whereas 
embedded systems typically have a 
fragmented address space with pock- 
ets of RAM and EPROM placed at 
the whim of the hardware designer. 
A potential problem exists in that 
two adjacent segments in different 
classes can share a common virtual 
segment and then be located non- 
contiguously when the segments are 
extracted. Because the virtual-to- 
physical-segment translation in this 
instance is ambiguous, a situation 
known as segment aliasing results. 
Segment aliasing can be avoided by 
guaranteeing that two segments in 
different classes never share a 
common virtual segment. This is 
easily accomplished by verifying that 
the first segment in a class is para- 
graph-aligned or that each segment 
spans a paragraph boundary. 

There is also a potential problem 
is using groups. A group is a collec- 
tion of unrelated segments that are 
organized to fit within, and be ad- 
dressed as, a single physical seg- 
ment. Some linkers, such as the Mi- 
crosoft linker, don’t include suffi- 
cient information for the locator to 
reconstruct a group. If groups are 
used, the user must have informa- 
tion on the organization of the 
group and include instructions in 
the configuration file to permit its 
reconstruction. This is accomplished 
by using the locate directives to fix 
the address of the first class in the 
group and then order the remaining 
classes in the group as specified by 
the compiler vendor. 


LOCATE 

LOCATE is an MS-DOS utility that 
accepts a relocatable .EXE file and 
outputs an absolute object module 
suitable for burning in EPROM. The 
source code and a make file for 
building LOCATE can be found in 
the accompanying listings (begin- 
ning on page 68). 

Because each application is 
unique, LOCATE uses several direc- 
tives to control the location process. 
These directives are used to identify 
ROMable classes, assign physical seg- 


ments to classes, and specify the 
order of classes in the absolute load 
module. Some directives accept a 
list of one or more operands. The [ 
and / characters are used whenever 
an operand is optional and can be 
repeated zero or more times. Unless 
otherwise specified, directives and 
operands are delimited by white 
space. 

The default configuration file has 
the file name of the input -EXE file 
with an extension of .CFG. Using a 
command-line option, the default 
file name can be overridden and any 
file can be specified to contain the 
configuration instructions. This 
option allows multiple load mod- 
ules to share a common configura- 
tion file. 


Class Directive 
The class directive assigns a physi- 
cal segment to a class. The first 
segment in the specified class is 
assigned the base segment number 
and the remaining segments in the 
class are assigned segments relative 
to the first segment in the class. 
These segments depend on the 
length of the preceding segments 
and the segment alignment. 

The class directive uses the follow- 
ing syntax: 


class class = seg 


where class is the name of the class 
and seg is the 16-bit physical seg- 
ment where the class will be lo- 
cated. For example: 


class code = Oxfc00 


assigns the class code to segment 
fc0Oh and therefore the physical ad- 
dress fc00oh. 


Order Directive 
The order directive is used to spec- 
ify the ordering of two or more 
classes. It is important because it 
allows unrelated classes to be made 
contiguous without firsthand knowl- 
edge of the size and number of seg- 
ments in the class. 

The order directive uses the fol- 
lowing syntax: 


order class [class] 


where the first class in the list was 
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DOS LOCATE UTILITY 
(continued from page 39) 


specified in a class directive. Any 
class names specified after the first 
are located contiguously and aligned 
to the segment boundary of the first 
segment in each class. For example: 


order code data bss 


orders the classes data and bss im- 
mediately following the class code. 


Dup Directive 
The dup directive is used to make a 
copy of the specified class. If used, 
the dup directive should appear 
before any other directives. 

The dup directive uses the syntax: 


dup class dup__class 


where class is an existing class and 
dup__class is the name given to the 
copy of class. For example, the direc- 
tive: 


dup data const 


makes a copy of the data class 
named const. This command is 
used in conjunction with the order 
directive to locate the data and bss 
classes in RAM but force a copy of 
the class data to be included in 
EPROM for power-on initialization 
of any initialized data. 

If the class data contains the in- 
itialized data from a compiler, the 
following commands will locate data 
at address 1000h and create a copy 
of data called const to be placed 
after the code class. The start-up 
code can then initialize the class 
data by copying the const class to 
the data class. 


dup data const ; Copy the class and 
call it const 


class data = 0x100 ; Fix data at 
address 01000h 

class code = Oxfc00 ; Fix code at 
address fc000h 


order code const ; Const to immedi- 
ately follow code 
; And read by the startup code 


Rom Directive 
The Rom directive is used to specify 
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the system is powered up and in- 
itialized. Other classes such as un- 
initialized data and the stack re- 
quire only to be located at a physi- 
cal address and do not need to be 
placed in the output file. 

The rom directive uses the follow- 


DOS LOCATE UTILITY 
(continued from page 41) 


which classes are ROMable. Classes 
containing program code and con- 
stant data need to be located and 
placed in ROM to be available when 


/* This program demonstrates the use of the LOCATE utility. It 
contains all of the components of a typical C program to 
exercise the startup code and locate utility. 


“7 


char *ptr = "class DATA" ; 
int array{10}[10] ; 


/* Initialized data */ 
/* Uninitialized data */ 


main () 

{ 
int i, 9; 
static char 


/* Automatics */ 
*o = "> /* Static initialized data */ 
for (i = 0; i < 10; i++) { 
for (} = GG: 4 < 10; j++) 
arrayiij(j) = i * 3; 
} 


strepy(s, ptr) ; /* Bring in a library function */} 


Example 1: The demonstration program 


C>masm /MX tc, tc, tc ; 
Microsoft (R) Macro Assembler Version 4.00 
Copyright (C) Microsoft Corp 1981, 1983, 1984, 1985. 
All rights reserved. 
49272 Bytes symbol space free 
Q Warning Errors 
0 Severe Errors 


C>tecc -c -ml demo 
Turbo C Version 1.0 Copyright (c) 1987 Borland International 
demo.c: 





Available memory 293342 


Example 2: Compiling the C source code and the MASM start-up module 














C>type demo.map 

Start Stop Length Name Class 
OOOOOH O00035H O00036H TEXT CODE 
00036H OOO7FH OO04AH DEMO TEXT CODE 
O0OO080H OOOA8H O00029H STRCPY TEXT CODE 
QOOBOH OOOBFH 00010H —_ETEXT CODEEND 
OOOCOH OO0D3H O00014H DATA DATA 
OOOEOH OO1A7H OOO0C8H _BSS BSS 
OO1A8H OO01A8H O0000H _BSSEND BSSEND 
QO1BOH OO3AFH 00200H _STACK STACK 
Address Publics by Value 
0000:0000 START 
0003:0006 _MAIN 
0008:0000 _STRCPY 
000B:0010 TEND 
000c:0000 _PIR 
000C:0000 IDATA 
000C:0020 ARRAY 
000C:0020 BDATA 
000C:00E8 EDATA 
001B:0200 TOS 

Program entry point at 0000:0000 





Example 3: The linker map file 
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#include <stdio.h 

#include <dos.h 

union REGS Taletet-Melehigcety 

unsigned int origatt = 0x0007, 
FIELD,NFLD; 

unsigned int INPUT( ) 

unsigned int GETKB( ); 


extern char VARB[ ][80]: 
extern unsignedint COL[ ], 


void CLRSCR( ) 
unsigned int att; 


inregs.x.ax = 0x0800; /*get current attribute of screen’ 


inregs. x.bx = 0x0000; 
int86(0x10,&inregs,&outregs); 
att = (outregs. x .ax &0xff00) 


inregs. x.ax = 0x0600; 
inregs.x.bx = att<<8; 
inregs. x.cx = 0x0000; 
inregs. x.dx = 0x1950; 
int86(0x10,&inregs, &0utregs) 


SOURCE CODE 









the time you spend 
creating code 
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time 










4. DEMOLOG 


Enter your selection from choice (1-5) 


CREATED SCREEN 


Which is 
why there's 
Screen Maker™ 
from SoftScience. 
Only Screen Maker generates 
Turbo C, C, Turbo Pascal, dBASE, 
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coding phase with an innovative visual technology which takes only a But you'd better hurry - Magic PC’s special $199 price won’t last long! 


fraction of the time: Introducing Magic PC—the revolutionary Visual 
Database Language from Aker Corporation: 


With Magic PC’s visual design language you quickly describe your 
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and point-and-shoot menus. One table with 50 operations eliminates | 
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Pop-up Zoom Windows run multiple programs per screen — with 
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ORDER NOW: CALL 





In CA (714) 250-1718 
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Victor Wright — PC Tech Journal 
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program at only a fraction of the time. 


With Magic PC, you can generate robust DBMS applications includ- 
ing screens, windows, menus, reports, forms, import/export, and much 
more! Plus, Magic PC has one of the friendliest user interfaces you’ve 
ever seen. Using Magic PC you can look-up and transfer data through 
a powerful Zoom Window system. Magic PC even lets you perform 
command-free queries. 





Magic PC incorporates Btrieve, the high-performance file manager 
from SoftCraft. This gives you exceptional access speed, extended data 
dictionary capabilities, and automatic file recovery! 
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With Magic PC you can modify your application design “on the fly” to generate powerful 
without any manual maintenance. Magic PC automatically updates applications much faster! 


your programs and data files on-line! This also makes Magic PC an 
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days, if I’m not completely satisfied. * 

- O Rush me a copy of Magic PC Tutorial Demo at $19.95 (add $5 
P&H, and tax in CA International orders add $15). 


4 Name 


Magic PC comes complete with LAN features. Develop multi- user 
applications for your LAN with Magic’s file and record- locking 
security levels. 





Company 

Distribute your applications and protect your design with Magic PC’s Street Address (no POB) 

low cost runtime engine. | ity, —________ State ee 
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trademarks acknowledged. © Copyright 1987, Aker Corp. 


eliminates the need for a separate DBMS, compiler, or applica- 
tion generator. It comes complete with all the tools you need 
to develop your own database applications instantly. 
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DOS LOCATE UTILITY 
(continued from page 42) 


ing syntax: 

rom Class [class] 
For example: 
rom code const 


forces the classes code and const to 
be placed in the output object file. 


Comments 

To aid in documenting the location 
process, comments can be added to 
the tail of any command line or as a 
separate line. Comments begin with 
a semicolon (;) and continue to the 
end of the line. Blank lines and com- 
ments can appear freely within the 
configuration file for documentation 
and readability. 


Options 

In order to provide a degree of flexi- 
bility, the LOCATE utility can accept 
command-line options (or switches 
if you prefer) that influence the op- 
eration of the locator. Command- 
line options are lowercase letters 
introduced with a leading dash (-) 
with no white space between the 
option letter and the argument. 
Some examples of LOCATE com- 
mand lines are: 


locate —b hello 
locate —b —ccommon.cfg hello 
locate —hhello.hx —b hello 


A command line begins with 
locate, is followed by zero or more 
options, and is terminated with the 
path name of the file to be located. 
In the following descriptions, left 
andri br _ ({ and /) are used 
to denote inandatory arguments. 


—b—The default setting for LOCATE 
is to generate an Intel extended hex 
start address record containing the 
entry point of the program. By speci- 











where filename is the name of the 
load module. One use of this option 
is to allow different object modules 
to be located using a shared configu- 
ration file. 

—h[filename/—changes the name of 
the Intel extended hex output file. 
Normally, the output is placed in a 
file with the same name as the .EXE 
input file and a default extension of 
HEX. 

—plfilename/—changes the name of 
the locate map file containing the 
segment assignments and public 


2 
’ 
. 
4 
. 
’ 
. 
¢ 
. 
’ 
* 
a 


dup 


different classes. 


DATA CONST 


symbols. Normally, the locate statis- 
tics are placed in a file with the 
same name as the .EXE input file 
and a default extension of .LOC. 


LOCATE Example 

To demonstrate the use of LOCATE, 
I'll now discuss an example that 
uses the Turbo C compiler from 
Borland. Using the large-memory 
model, the program in Example 1, 
page 42, loads several different code 
and data segments that can then be 
processed by LOCATE. The com- 


This configuration file is used with Turbo C to build a 
ROMable image. It defines physical addresses for three 
classes, makes a copy of the initialized data class to 
keep in ROM and instructs the locator the order of the 


Make a copy of the initialized data class 


and name it CONST 


CODE = Oxfc00 
STACK = 0x0080 
class DATA = 0x0100 
order DATA BSS BSSEND 
order CODE CODEEND CONST 


class 
class 


rom CODE CONST 


Start code at address FCO0O0H 
; The stack at address 00800H 
; DGROUP at address 01000H 
Define the order of DGROUP 
And the order of classes in ROM 


ROM only the program code and the copy 


of the initialized data that the startup 
code copies from ROM to DGROUP 


Example 4: The configuration file 





FULL AT&T C++ for half the price of our competitors! 


Guidelines announces its port of version 1.1 of AT&T’s C++ translator. As an 


object-oriented language, C++ includes: 
constructors and destructors, data hiding, and data abstraction. 


classes, inheritance, member functions, 
‘Object-oriented’ 


means that C++ code is more readable, more reliable and more reusable. And that 
means faster development, easier maintenance, and the ability to handle more 


complex projects. 


C++ is Bell Labs’ answer to Ada and Modula 2. C++ will 


more than pay for itself in saved development time on your next project. 


C++ 


from GUIDELINES for the IBM PC: $195 


Requires IBM PC/XT/AT or compatible with 640K and a hard disk. 
Note: C++ is a translator, and requires the use of Microsoft C 3.0 or later. 


Here is what you get for $195: 
The full AT&T vl.1 C++ translator. 


To order: 
send check or money order to: 


Libraries for stream I/O and complex math. 
"The C++ Programming Language", the 
definitive 327-page tutorial and description 
by Bjarne Stroustrup, designer of C++. 
Sample programs written in C++. 
Installation guide and documentation. 

30 day money back guarantee. 


fying the —b option, LOCATE will 
create an absolute segment at ad- 
dress ffff:0 and place an interseg- 
ment jump instruction to the entry 
point of the program. 

—clfilename/—specifies a different 
configuration file. The default con- 
figuration file is filename .CFG, 


GUIDELINES SOFTWARE 
P.O. Box 749 
Orinda, CA 94563 


To order with Visa or MC, 
phone (415) 254-9393. 
(CA residents add 6% tax.) 


C++ is ported to the PC by Guidelines under license from AT&T. 
Call or write for a free C++ information package. 
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DOS LOCATE UTILITY 
(continued from page 45) 


piled C source and Turbo C run- 
time routines are linked with the 
Turbo C assembly-language start-up 
code, TC.ASM. The start-up code to- 
gether with the order and dup direc- 
tives demonstrates how the locator 
can initialize the data class and zero 
out the bss class. 

As shown in Example 2, page 42, 
you begin by compiling the C source 
and the MASM start-up module. The 
Turbo C options used are to disable 
linking (-c) and select the _ large- 
memory model. 

I disable the automatic link follow- 
ing the compile so that I can substi- 
tute a ROMable version of the C 
start-up. The Turbo C large-memory- 
model library is searched to satisfy 
the external reference to the strcpy( ) 
function, as follows: 


C>tlink /m tc demo, demo, demo, 
\turboc\lib\cl 
Turbo Link Version 1.0 Copyright (c) 
1987 Borland International 


For reference, the linker map file for 
this example is reproduced in Exam- 
ple 3, page 42. Note the segment 
and class assignments and watch 
how the locator processes and con- 
verts the executable image to a ROM- 


C>type demo.loc 
MS-DOS Locate Utility Version 2. 0 


Input File: DEMO.EXE 
Output File: DEMO.HEX 
Configuration File: DEMO.CFG 


Invoked by: C:\BIN\LOCATE.EXE -b demo 
Date/Time: Mon Aug 03 14:40:17 1987 


Segment Information 
Name Class 
TEXT CODE 
DEMO TEXT CODE 
STRCPY TEX CODE 
_ETEXT CODEEND 
_DATA DATA 
_BSS BSS 
_BSSEND BSSEND 
_STACK STACK 
_DATA NEWDATA 
?2?BOOT (ABSOLUTE) 


FCOOOH 
FCO36H 
FCO80H 
FCOBOH 
01000H 
01020H 
010E8H 
00800H 
FCOCOH 
FFFFOH 


Public Symbols 
FC00:0000 START 
FCO8:0000 —STRCPY 
0100:00E8 
0100:0020 
0100:0000 


Entry Point - FC00:0000 


Example 5: The output from the locator 


46 


Address 


FCO3:0006 
FCOB:0010 
0100:0020 
0100:0000 
0080:0200 





able image. 

The configuration file for the ex- 
ample (see Example 4, page 45) must 
be able to handle the group and the 
initialized data generated by Turbo 
C. LOCATE is instructed to make a 
copy of the data class that contains 
the program initialized data. Next 
the base segments of the three inde- 
pendent classes (code, data, and 
stack) are specified using the class 
directive. The order directive is used 
to recreate the Turbo C dgroup and 
fix the copy of the initialized data 
segment immediately following the 
codeend class. With it tucked nicely 
in EPROM and its physical address 
determined by the tend label, the 
start-up code can copy the class 
const to the data class before calling 
main( ). 

LOCATE is then executed to proc- 
ess the .EXE file and output the 
absolute load module, as follows: 


C>locate —-b demo 

MS-DOS Locate Utility 

Copyright (C) 1987 Paradigm Sys- 
tems. All rights reserved 


The output from the locator, shown 
in Example 5, page 46, is an Intel 
extended hex file and a segment 
map detailing the new physical ad- 
dress assignments. The locate map 
also contains a list of public sym- 


Length _ 
0036H 
004AH 
0029H 
0010H 
0014H 
00C8H 
0000H 
0200H 
0014H 
0005H 


_MAIN 
TEND 
BDATA 
IDATA 
TOS 


:OO000001FF 


bols for use in debugging the target 
system. Note how the segments and 
classes have been relocated accord- 
ing to the instructions in the con- 
figuration file and correspond to the 
addresses of the target hardware. 

The file DEMO.HEX (in Example 
6, page 46) is now ready to be sent 
to the EPROM programmer. In an 
8-bit system, the data is burned di- 
rectly into one or more EPROMs. In 
a 16-bit bus system, the EPROM pro- 
grammer must be used to split the 
load module into upper and lower 
bytes for programming the upper 
and lower bytes in_ separate 
EPROMs. 


Summary 

Although a simple example, the 
sample program demonstrates the 
power and flexibility of turning a 
low-cost PC into a powerful, embed- 
ded, system development tool for 
the NEC and Intel microprocessors. 
With access to a wide range of popu- 
lar software development tools, pro- 
gram development for embedded sys- 
tems has never been easier. 


DDJ 


(Listings begin on page 68.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 3. 


:02000002FC0000 

: LOOOOOOOFABS 80008EDOBCO0002B800018ECOBS80BD8 
:1LO001000FC408ED8BEO0008BFEB920002BCFF3A48D 
:10002000061F32COBF2000B9E8002BCFF3AAFB9AUD 
:06003000060003FCEBCA10 

:02000002FCO3FD 
710000600565733F6EB2433FFEBIA8BC6F7E7508BC4 
:10001600C6BA1400F 7E28BD88BC7D1E003D858894B 
:100026008720004783FF0A7CE14683FEQA7CD7FFDO 
:10003600360200FF360000FF360600FF3604009A3F 
:0A004600000008FC83C4085F5ECBD5 
:02000002FCO8F8 
:100000005657558BECFC1EC4 7E0E8BF732COB9FFE1 
:10001000FFF2AEF7D18CC38EDBC4 7E0AF3A41F8B34 
:09002000560C8B460A5D5F5ECBB5 
:02000002FCOCF4 
100000000800000113000001436C61737320444138 
:040010005441000057 

:02000002FFFFFE 

: OSOOO000EA0D00000FC15 

:04000003FCO00000FD 





Example 6: The file DEMO.HEX 
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Clarify and document your source listing and get 


an “organization chart” of your program’s structure 


with two NEW utilities from Aldebaran Laboratories, for C, BASIC, 
Pascal, (BASE® FORTRAN and Modula-2 programmers 


































source Print 150 FOR INDX = 1 TO 100 
‘Occasion ally, 9 utility organizes your source code, simpli- rr ae CF o0o! en = 0: K = K 6X: WEND 
fies debugging, and makes documen- 200 NEXT INDX, 
comes along that makes a tation a snap! It lists one or more igo [7 Garter ot) 299 om x = 5 
i: source files with informative page pe tetK) = 0 
programmer’s life much hcadiaus arti op. Before won!" *** 
easier. SOURCE PRINT Honal ine siierers - P 
while offering PE eek een See 
is such a program. invaluable features: Ss SuciettasiTa08. 
: The Index ere 
It contributes to the (Cross-Reference Gina. 
. list) saves you time adie 
3 nrecor 4.191 9=396 19.8 19= 
programmer S job by by showing exactly C : ° 21888 22.922 22.953 235978 
organizing code into a where variables are = ee ee eee eee 
§ s used and where functions, pro- $9 790 | 34.2354 54.2364 3412365 94.2366 
legible format and by cedures, and routines are called. mews Geld Gust, SOE 





Locations where new 
values may be assigned to 
variables are shown, making it easy to track down that 
mysterious value change. 

Structure Outlining solves the problem of hard-to- 
see nested control structures by automatically drawing 
lines around them. 

Automatic Indentation of source code and listings 
reduces your editing time and ensures indentation accuracy. 
Plus... Source Print generates a table of contents 
listing functions and procedures. Keywords can be printed 
in boldface on most printers. Multi-statement BASIC lines 

can be split for readability. Functions and procedures can 
be drawn by name from one or more source files to form a 


helping to organize the 
documentation and 
debugging process.” 


— PC Magazine 
Sept. 16, 1986 











Source Print and Tree Dia- 
grammer both have easy-to-use 





menus with point-and-shoot file new file. 

selection, and let you search for . 

files containing a given string. ™ i 

See Tree Diagrammer SEFEET ies 

with 256K. shows your program’s overall organization at a 
Join thousands of program- glance. Ordinary program listings merely display 

mers who are working more functions, procedures, and subroutines sequen- 

efficiently using Source Print tially, but do not display the relationships be- ae 

and Tree Diagrammer. Order tween these routines. Our revolutionary new : EME 

these indispensable tools today. Tree Diagrammer automatically creates an 

We ship immediately, and “organization chart” of your program showing the st 

there’s no risk with our 60-day hierarchy of calls to functions, procedures, and 

money-back guarantee. Order subroutines. Recursive calls are indicated and 

both and save. Only $155.00. designated comments in the source code 


will appear on the chart. 


80 0-7 5 J- 5 7 7 3 Dept. 58 Tree Diagrammer helps you organize your 


In California: program more logically. And you'll be amazed at 


how easy it is to debug when you 
80 O-7 5 7. 5 7 74 Dept. 58 see how your routines interact. ¢ 7 790 





MasterCard, VISA, American 














Express, COD. Add $5 for Aldebaran Laboratories 3339 Vincent Rd. Pleasant Hill,CA 94523 415-930-8966 
shipping/handling. YES! Rush ME D Source Print @ $97. ________ [] Tree Diagrammer @ $77, ____ 
1) Both $155. Ship/Handling $5. For CA add 6% tax ____L__ESsTotal 
or see your local dealer! Name 
Company 
Address 
Source Print and Tree Diagrammer are City. a... Zip 
trademarks of Aldebaran Labs. dBASE is []Checkenclosed [JVISA [{JMasterCard (| American Express 
a trademark of Ashton Tate. Prices subject Card # Exp. Date 
to change without notice. Signature Chaos & 58 
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ARTICLES 


Integers Don't Float 


o do graphics programming, 
4k need a fast, integer 

square root routine—the 
faster the better. Unfortunately, 
many published square root rou- 
tines seem to be transported floating- 
point routines, and the demands for 
accuracy are quite different for float- 
ing-point numbers and integers. In 
fact, a single pass of Newton's 
method may give you sufficient ac- 
curacy and still be faster than the 
routines borrowed from floating- 
point experience. 

The use of Newton’s method is 
familiar: given a target integer, N, the 
first step is to get an estimate X, of 
the square root of N, then apply 
Newton's first derivative method to 
iterate, which is: 


f(X,) =f(X,) + (X,-X,)(df(X)/dX) 


If VN is desired, let f(X)=X xX and 
df(X)/dX = 2X. Then, if X, is the square 
root of N, f(X,)=N. Using this defini- 
tion of f(X), the equation can be 
written N=(X, X X,) + (X,—X,)(2X,), or 
to find X, from a first guess X,, use: 


X, =(X,+N/X,)/2 


If X, isn’t accurate enough, substi- 
tute X, for X, in this second equa- 
tion to get X,, and so on. The catch 
comes from the implementation of 
“and so on.” 

In algorithms that have been trans- 


Ray Mariella, 872 El Quanito Ct., Dan- 

ville, CA 94526. Ray works at the 
Lawrence Livermore National Labo- 
ratory in Livermore, California, grow- 
ing compound semiconductor films 
for ultra-high-speed circuits and op- 
tical devices. 








by Ray Mariella 


Calculating 
square roots 


without penalties 





ferred from floating-point proce- 
dures, in which 64 bits and more 
are used for accuracy, many itera- 
tions may be needed and an error 
value must be calculated and moni- 
tored. When the error is small 
enough, the routine stops and re- 
turns the latest value, X;, as the 
square root. Because multiple itera- 
tions are needed and an error value 
is monitored on each pass, the usual 
code does not use the second equa- 
tion on its first pass but rather uses 
X,=N/X, for convenience. You can 
see this in the typical code fragment 
for 32-bit integers on the 8086, 
shown in Example 1, below. 

Even with a good first guess of X,, 
such as the average of the maximum 





the 32 bit integer N is in 
initial guess X0 is in BX 





=e Se Be 


ISQRT: MOV DX,DI 
MOV AX,SI 
DIV BX 
SUB AX,BX 
CMP AX,1 
JG IsQl 
CMP AX,\sc0O\1 
JGE done 
ESGi: SAK AX,i 
ADD BX,AX 


short ISQRT 





DI:SI 


lower bound and the minimum 
upper bound by factors of 2, a single 
pass of ISORT does not usually suf- 
fice. For example, to find the square 
roots of all the integers from 1 to 
65,535, an average of 1.6 divisions 
per root is needed, or an extra 42,150 
iterations. Using the same first guess, 
ROOT.C (the C code in Example 2, 
page 50) allows the accurate calcula- 
tion of the integer square roots 
using a single pass. The assembly- 
language code for one pass of 
Newton's method is much shorter 
than that for ISORT, as shown in 
Example 3, page 52. 

At this point it’s useful to define 
accuracy. With most integers, an in- 
teger square root is not an exact 
root. When I speak of the “exact” 
square root, I refer to rounding the 
exact floating-point square root to 
the nearest integer. My assembly- 
language code is written for the 8086 
line of CPUs, and my “exact” an- 
swers come from the 8087 numeric 
coprocessor. (See Listings One 


through Four, beginning on page 















tprepare for division 
;DX:AX / BX 

7N/X0 

zerror term 

geheck if > #1 

;if above 1, keep on 
zecheck for \sc0O\1,0,+1 
if OK, get out 

7 (N/X0O \scO\X0) /2 

7 (N/XO +X0)/2 = X1 
zuse X1 as X0 


Example 1: A code fragment for calculating square roots of 32-bit integers 
on t6 
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& Windows 


Forms, 
Data Input 


Screens 


DOS Error 
interface Handling 





C-Worthy Interface Library helps you smoothly pull together all aspects of an excellent Human Interface. 


C Programmers: Wrap an Exciting, 
Bullet-Proof Interface Around 
Your Code Quickly. 


Introducing... 


C-Worthy® Interface Library 


The only human interface package 
you need. That’s what our customers 
are telling us. One early adopter, 
Novell, Inc. uses it exclusively in the 
development of their NetWare® 
Utilities, which reach over 500,000 
users. You see, C-Worthy Interface 
Library is the only library available to 
handle every aspect of your program’s 
human interface, all in one package. 
Now your programs will have a 
consistent look and feel. You no longer 
have to integrate pieces of libraries 
from different manufacturers. 

As important as you know users are, 
you often don’t have the time to heavily 
invest in writing routine code. And 
that’s OK, because with over 400 tight, 
ready-to-use functions, C-Worthy 
Interface Library takes care of the 
tedium and lets you spend your time 
doing what you enjoy. Concentrate on 
the heart of your application — features 
that make it unique, special. Let 
C-Worthy Interface Library do your: 

@ Menus 

e Error Handling 

e DOS Interface 

e Context Sensitive Help 
e Screens, Windows 

e Forms, Data Input (optiona) 


You control color, size, border, 
location, etc. And if there’s anything 
you want to change, you can. Source is 
available to provide you with the 
flexibility you need. And you can 
distribute your applications freely, with 
no royalties. 


C-Worthy Interface Library requires hard disk media with 256K 
RAM. MSDOS 2.0 + and IBM PC, or compatible, TI Professional, 
NEC APC III, or VICTOR 9000. C-Worthy is a registered 
trademark of Custom Design Systems, Inc. 





“C-Worthy is a comprehensive C library whose 
time has come. I heartily recommend it as your 
next purchase.’ —Computer Language, 8/87 


Tech Specs 


® Compilers: Microsoft 3.0+, Quick, Turbo, 
Lattice. All models. 


w= 350+ functions written in C, 75+ in 
Assembler. 


C-Worthy — 

interface Library 

wz Menus: Fully support pop-up, Lotus style, : 
MS Windows style (pull-down), pull-up. 


zw Errors: DOS, program, and user. 


w DOS Interface: 62 functions. File handling, 
dir. and drive management, date & time 
conversion, wildcards, more. 


> Help: System and context sensitive. 


wz Screens: Screen display, color palettes, save, 
restore, scroll, more. 


z= Windows: Exploding, tiled, pop-up, 
overlapping. Direct video access and virtual. 
Up to 50 active at any time. 

w> Keyboard Handling: Regular, function, 
interrupt, background procedures. 


yw Editing: String and word wrap text. 

> Form Interface Library: 118 functions. 
Over 15 field types, and user definable field 
types. 3 levels of data validation: type, 
multiple field ranges, optional validation 





C-Worthy Interface Library: 


procedures. Hide, lock, or secure a field. 2 ener ne ret $ 195 
Optimal field movement. Form Interface Library add-on... ..$ 100 
we Foreign Languages: All text messages in Object with Forms 2. .$ 295 


separate files for easy translation. 
= Compatible with MS Windows. 
mw OS/2 special overlay when released. 


we Machines: Autodetect for MDA, CGA, 
EGA, VGA, TI, AT&T, Victor. 


w= No royalties. 


Object with Forms & Library Source. . .$ 495 


Please specify compiler and version when ordering. 





To Order Call 


(800) 821- 2492 
in MA (617) 337-6963 


“I heartily recommend this package.” 
— David A. Schmitt, president, Lattice, Inc. 
Over 400 developers in 16 countries already use it. 


Thorough Documentation 


Indexed alphabetically and by category, 
the 700+ page Reference Guide includes 
for each function: an example, description, 
calling conventions, return values, and 
related functions. The 250 page User’s 
Guide gets you going with its tutorial 
and “Getting Started” sections. 
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541-D Main Street, Suite 410 
South Weymouth, MA 02190 





INTEGERS DON'T FLOAT 
(continued from page 48) 





98.) 
Applicati 


demand that the integer square root 
either agree with the exact root or 
differ by —1, then ROOT.C works up 
to N=127,087 (the square root of 


ons vary, and if you | 127,088 is 356.49 and a single pass 


gives 357). If you're willing to accept 
0, or +1, or -1 as an error, then a 
single pass of Newton’s method can 
be used up to 1,941,799 (for 1,941,800 
the square root is 1393.48 and a 


/* ROOT.C a square root algorithm by RPM */ 
/* long integers, single pass of Newton */ 


#include <stdio.h> 


main (\sc128\) 
{ 


long int N, guess2, sqrrt; 
register int infi, guessl; 





scant ("%1d",&N); 

{ guessl = infi =1; 

guess2 = N; 

infi <<=:1; 

if ( infi < guess2 ) 

{ guess2 >>= 1; 

guessl = infi; 
goto logit; 
} 
guessl += guess2; 
guessl >>= 1; 

/* newton's method */ 
infi = N / guessi; 
sqrrt = infi + guessl1; 
sqrrt >>= 1; 


logit: 










} 


| Now you can use QPARSER + to develop compilers, | 
interpreters, complex user-interfaces, language & file for- 
mat translators (i.e. Pascal to C, Bit Map to Postscript), | 

| language debuggers like lint, etc. | 


| Develop language translators in C and Pascal within the | 
|1BM PC/XT/AT or VAX/VMS environments. A new user | 
i manual, automated syntax tree construction and an ad- | 
| vanced code generation language are just a few of the | 
| improvements over the original QPARSER. : 





! Another translation by QPARSER+ 
Just $475 (PoxtaT) — FREE demo disk available 


i QCAD Systems 
1164 Hyde Avenue, San Josée CA 95129 (408) 727-6884 


L an oe om QUiside Calif, call TOLL-FREE (800) 538-9787, 
ts CIRCLE 128 ON READER SERVICE CARD 


printf ( "\n square root of what number " ); 


/* div by 2 */ 


/* sum */ 
/* avg */ 


printf ( “ square root = %ld", sqrrt); 


Example 2: C code to calculate integer square roots using a single pass 


single pass gives 1,395). 

Skipping all those compare, condi- 
tional jump statements, and multi- 
ple passes can save a lot of CPU 
time. On my 8-MHz PC6300 with 
V30, the assembly-language program 
RALL16 (Listing Four) which is opti- 
mized for 16-bit integers, finds all 
the square roots from 1 to 65,535 in 
2.5 seconds, with an empty loop 
time of 0.2 seconds, or about 35 
microseconds per root. This is 

slightly faster than the speed at 
which the 8087 performs the same 
task. I found that 29,776 of the roots 
were 1 less than the exact root and 
the rest agreed with the exact root. 
The Microsoft C 4.0 version of 
RALL16 took 4.6 seconds for all inte- 
gers from 1 to 60,000, or about 73 
microseconds per root. 

For 32-bit integers up _ to 
4,294,967,295 (FFFF:FFFF), two passes 
of the second equation are needed. 

















My program code, ISORT32.ASM (in 


M Street Software 


SCRUTINY 
Advanced symbolic debugger. 
— Multi-language: compatible with Turbo Pascal, 
Microsoft Assembler, others. 
— Multi-DOS: works with all MS-DOS/PC-DOS 
computers. 
— Multi-level: debug at source level and machine level, 
separately or together. 
— Multi-display: debug character-mode and graphics- 
mode programs, with movable debug windows. 
— Multi-chip: support for 8086, 80186, 80286, 80386. 
— Fast 80386 “memory breakpoints” (stop program 
when specified variable is accessed or modified). 
Scrutiny/Master $99.95 
for debugging Turbo Pascal, Microsoft Assembler, 
and other languages. 
Scrutiny/Turbo Special price! $49.95 
for debugging Turbo Pascal only. 
VISA/MC AMEX accepted. In Texas please add sales 
tax. Outside of North America add $10 per item 
shipping. 
























M Street Software 
2400 E. Mockingbird Lane Suite 114 
Dallas, Texas 75206 
214-827-4908 


Information also available via our 24 hour 300/1200 
modem: 214-669-1882. 
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THE ADA WORLD 


oe 


Next Generation Ada Technology 


Third generation Ada is here today with Meridian 
AdaVantage, and it’s validated by the Department 
of Defense and their suite of 2,700 tests. Ada’s first 
generation was the proving ground technology of 
the early eighties. Then came the large validated 
compilers of the mid-eighties, which were often 
inefficient and machine specific. Now Meridian 
offers a compact efficient Ada technology that is 
highly portable from PC’s to minis to mainframes. 


COMPACT MERIDIAN Ada IMPLEMENTATION 


350,000 


Lines of 
Source 
Code 


40,000 





Meridian Other Ada Compilers 


The chart above depicts the dramatic difference 
between Meridian’s implementation and other 
comercially available Ada implementations. 
Meridian’s order of magnitude smaller code size 
results in an extremely fast compiler that will 
produce highly optimized code. 


Meridian’s Track Record 


Since 1981, we’ve been building compilers the old- 


fashioned way, through hard work and experience 
gained from our development of successful 
portable compiler products. These products are 
installed at over 1,500 sites, including almost all 
major DoD contractors as well as commercial 
software developers. 


ATED 
oe 


THIS PRODUCT CONFORMS 
TO ANSI/MIL-STD-1815A AS 
DETERMINED BY THE AJPO 
UNDER ITS CURRENT 
TESTING PROCEDURES 


Ada is a registered trademark of the U.S. Government (AJPO). AdaVantage and AdaStarter are 
trademarks of Meridian Software Systems, Inc. References to other computer systems use trademarks 


owned by the respective manufacturers. 


Price/Performance Breakthrough 


The Meridian AdaVantage v2.0 validated Ada 
compiler costs $795 and provides a production 
quality Ada development tool. 


BENCHMARK 
Compile and link time 
Execution time 4.6 sec 


Execution size 27,344 bytes 42,129 bytes 
Price $795 $2,995 





NOTE: All times measured on an !1BM at 5170 (8MHz) and a 4MB RAM card 
required by the Alsys system. When running without the RAM card, the 
Meridian compile and link time is 46 seconds. 


The Meridian AdaStarter incorporates all of the 
features of AdaVantage, with certain size 
limitations. AdaStarter is perfect for anyone who 
wants to learn how to program in Ada. The 
complete $99 cost is applicable toward the 
purchase price of the AdaVantage production 
compiler. 


The compilers all run in a standard PC 
configuration with 640K of memory, a hard disk, 
and DOS v2.1 or higher. . 


To order today, or get more information, call 
1-800-221-2522 (outside California) and 
1-714-380-9800 (inside California). 





“The Meridian compiler is a very well-thought-out 
compiler. The compiler is fast and execution speed 
is more than adequate... Overall, we’d rate the 


Meridian compiler as very solid.” 
— COMPUTER LANGUAGE, DECEMBER 1986 





“The more affordable AdaVantage v1.0 is good for 
the average programmer because of its price, the 
extent of its implementation, and its relaxed 
hardware requirements... [AdaVantage v2.0] should 
be competitive with Alsys Ada, since it will be a full 


Ada at less than a third of the price of Alsys.” 
BYTE, JULY 1987 
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MERIDIAN 
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SY 51 EF Mos. tn. 
23141 bpaltrte Drive, Suite 105, Laguna Hills, CA 92653 


800/221-2522 (outside CA) 714/380-9800 (inside CA) 
Telex: 650-268-0547 MCI Fax: 714/380-1683 
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INTEGERS DON'T FLOAT 
(continued from page 50) 





Listing One), for the 8086 line is 
cumbersome, but it does work for 
all these integers (it takes approxi- 
mately 153 hours to compare the 
V30 and 8087 square roots). Again, 
the result after two passes of 
Newton's method either agrees with 
the exact integer or is 1 less. This 
code executes in about 110 micro- 
seconds per root on my machine. 
(Here the 8087 is more than twice as 
fast as the V30 and looks very attrac- 
tive indeed!) 

Again with Microsoft C 4.0, the 
two-pass version of ROOT.C takes 
an average of 360 microseconds per 





NEWTON: MOV DxX,DI 
MOV AX,SI 
DIV BX 
ADD BX,AX 
RCR AX,1 





Lo 





root for integers from 10,000 to 
100,000,000 in steps of 10,000 (using 
register variables). This V30 perform- 
ance is about the same speed as the 
same program on a Macintosh Plus 
with Lightspeed C. The maximum 
integer that ROOT.C can handle de- 
pends upon the compiler and its 
acceptance of such things as un- 
signed register variables. 

The decision whether to use the 
single-pass or double-pass version 
of Newton's procedure can usually 
be made by the programmer before 
starting, based on the number of 
pixels on the screen and thus the 
maximum integer that the program 
will see. In either event, my meas- 
urements have shown that using the 





s the 32 bit integer N is in DI:SI 
7 initial guess X0 is in BX 





prepare for division 
sDX:AX / BX 

7N/X0 

2 (N/XO +X0)/2 = Xl 

7 (N/XO \scO\x0) /2 





Example 3: Assembly-language code for one pass of Newton’s method 











“faa 


unaltered Newton’s method pro- 
vides greater speed and somewhat 
better accuracy than can be attained 
using the more common algorithms 
that came from the floating-point 
literature. 


Along the same lines, in the March 
1986 issue of DDJ, Richard Campbell 
described both a C routine and an 
assembly-language version for the 
NS320xx processor for calculating 
square roots.—eds. 


Availability 

Most of the source code for articles 
in this issue is available on a single 
disk. To order, send $14.95 to Dr. 
Dobb’s Journal, 501 Galveston Dr., 
Redwood City, CA 94063, or call (415) 
366-3600, ext. 216. Please specify the 
issue number and format (MS-DOS, 
Macintosh, Kaypro). 


DDJ 


(Listings begin on page 98.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 4. 








All MASM featur GS (except 386 & CodeView support) 


Plus 


*Generates smaller code! (no inserted NOP’s) 


*Automatically handles jumps out of range 
*Handles most of MASM’s phase errors 
*Built in MAKE 

*Up to 15,000 symbols 
*Simplified segmentation 


52 


| elie foes | lets || 
XE ae 


OPTASM 
$195 


CIRCLE 131 ON READER SERVICE CARD 





Dr. Dobb’s Journal, December 1987 











Our front end helps protect 


Today’s users require sophisticated 
interfaces for their applications. 
Yet complex front ends are a real pain 
to create, especially when the specs 
change and your deadlines don’t. 

But now J YACC introduces JAM” 
a powerful 
user inter- 


ment tool 
that makes 
it easier 
than ever 
to design 

freely with JAM. and revise 
your complex applications. 

JAM is the first tool that does it all, 
from prototyping to implementation. 
With JAM, you start by creating 
screens and linking them together to 
develop an application shell. You can 
experiment with the look of the inter- 
face, and even explore “what if” 
scenarios on the application flow. 
Then you attach processing routines, 
and your application is complete. 





Use windows and colors 


face develop- 


JAM works under the following operating systems: 
e UNIX® e XENIX® 

e RMX™ 

e VOS™ 


© MS-DOS® 
° VMS® 


You'll be amazed at how quickly 
your applications spring to life with 
JAM’s interactive screen management 
utility. You can use features like con- 
text-sensitive help, shifting and scroll- 
ing fields, a variety of visual attributes 
and extensive data validations to 
create exciting screens, windows and 
menus—all without writing a single 
line of code. JAM also lets you test 
your prototypes at any time. 

JAM lets you draw from its extensive 
subroutine library to help you write 
processing routines faster. And revi- 
sions to your applications are easier, 


Introducing 





your back end. 


because your subroutines are insulated 
from the data entry and presentation 
details of the interface. 

JAM is extremely portable. It runs 
on almost every computer, from PCs to 
superminis, and works under 6 operat- 
ing systems. This allows you to develop 
consistent interfaces throughout your 
company— 
a significant 
asset to the 
Fortune 500 
companies 
that have 
been using 
JAM for more Enhance applications with 
than a year. context-sensitive help. 

JAM from JYACC. It gets your 
front ends—and back ends—in great 
shape. Call for more information about 

AM and our 
setts diskette. 800-458-3313 
JYACC FORMAKER™, JAM’s screen 
manager, is also available separately. 
JYACC, Inc., 116 John Street 
New York, NY 10038 = 212-267-7722 





JYACC Application Manager. The Composer for Sophisticated Applications. 
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ARTICLES 


A Graphics Toolbox 
for Turbo C—Part 2 


for Turbo C” (DDJ, November 

1987), I developed a library of 
low-level graphics routines for Turbo 
C and explored ways to incorporate 
them into high-level drawing rou- 
tines for APA (all-points addressable, 
or pixel-oriented) graphics. In this 
article, I use the library routines de- 
veloped in Part 1 to create text graph- 
ics such as menu bars, pop-up win- 
dows, pull-down submenus, and the 
like. 

Popping up a visual object that 
obscures a portion of the screen, 
then restoring that overlaid area 
after removing that object, is a visu- 
ally exciting if relatively simple pro- 
gramming trick. Before writing an 
object to screen, you simply copy 
display memory into a save buffer; 
to make the object go away—that is, 
to restore the screen to its former 
appearance—you just write back the 
screen previously saved to buffer 
into display memory. In this way, 
the text obscured by the pop-up 
reappears magically intact. 

Finding display memory can be a 
_ bit more challenging, however. The 
display memory location depends 
on the kind of adaptor you're using. 
To get that information from the 
operating system, I constructed a 
function called videomode(). It de- 
termines which type of video adap- 
tor is active: if videomode() returns 
7, there’s an MDA with display 
memory at BO00h:0; otherwise, dis- 


| E Part 1 of “A Graphics Toolbox 


Kent Porter, 1909-4 Montecito Rd., 
Mountain View, CA 94043. Kent has 
written 17 books about programming 
and hundreds of magazine articles 
on computer hardware and software. 
He ts a technical editor for DDBJ. 
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pop-up windows, and 
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play memory begins at segment 
B80oh. 

Text screens for IBM-standard 
adaptors occupy 4,096 bytes, 
whereas for the Hercules the display 
memory is 16,384 bytes. You can 
find out the video buffer size from 
40h:4Ch using Turbo C’s peek( ) func- 
tion, which returns an integer indi- 
cating screen memory size. 

Some non-MDA adaptors provide 
for more than one video page. That 
is, they subdivide the total display 
memory into 4K segments (pages) 
and allow you to select which is the 
active display buffer. That’s what the 
video library function setpage() 
does, and activepage() tells which it 
is. Therefore, with a non-MDA adap- 
tor, you have to determine the active 
page and multiply by 4,096 to deter- 
mine the starting offset of the cur- 
rent video buffer within segment 
B800h. (Or you can fetch this 
number directly from 40h:4Eh.) 

Once you know the size and loca- 
tion of the active page’s video buffer, 
you can allocate a node of that size 
on the heap and use Turbo C’s move- 
data() function to save the display 
image. You can then create a pop- 
up. Later, simply reverse the source 
and destination parameters in move- 
data() to restore the screen and 
make the pop-up vanish. 

Restoring the screen is_ prob- 
lematic with the IBM-brand CGA, 





which has a flawed design that gen- 
erates “snow.” This occurs when 
you write directly to screen memory 
in text mode. Fortunately, this isn’t 
a problem with the Compaq and 
most non-IBM CGA clones. The solu- 
tion with the IBM board involves 
synchronizing character movements 
with the video controller. (For more 
detail on this procedure, see Ray 
Duncan's Advanced MS-DOS, page 
79). . 

The saveScrn() and_ restScrn() 
functions near the end of POPWIN.I 
(Listing One, page 106) furnish some- 
what simplified versions of this dis- 
cussion. They assume that the active 
page is 0—the default—and that an 
IBM-standard adaptor is in use. 
Also, they don’t deal with snow. 

You might wish to take a more 
sophisticated approach to saving 
screens. In the demo developed for 
this article, I never save more than 
one screen image, and thus I simply 
copy the active screen buffer to and 
from an object of the same size on 
the heap. 

Real-world situations often have a 
hierarchy of pop-ups, in which one 
leads to another, to another, and so 
on. In that case, you build a stack 
(LIFO) structure on the heap so that 
you can retreat back down the hier- 
archy in an orderly manner. A circu- 
lar doubly linked list is ideal for this 
purpose. 

In summary, then, the steps for 
handling pop-ups are: 


@Save the display buffer on the 
heap. 

@ Write the pop-up. 

®On a signal from the user, copy 
the heap image back to the display 
buffer, thus restoring the screen. 
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Now that we've solved one of the 
big mysteries surrounding pop-ups, 
let’s discuss the abstraction of com- 
plexity. 


Visual Objects as 

Data Structures 

Although the screen is a free-form 
area that can contain literally any- 
thing you want it to, special objects 
such as pop-ups and menu bars 
always conform to a prescribed set 
of attributes. That,is, they have a 
defined number, size, location, color 
combination (foreground/back- 
ground), border, text content, and 
sO on. 

The point is that any object can 
be defined in terms of two charac- 
teristics: its appearance and its text 
content. Sometimes it’s appropriate 
to combine them into one, and some- 
times it’s not. I'll consider both 
cases. 

This approach suggests the use of 
data structures and accompanying 
routines that interpret those struc- 
tures on the display. On that basis, 
you can describe visual objects by 
building structures and leave it to 
the routines to translate them into 
reality. Let’s prove the point with a 
discussion of menu bars. 


Building Menu Bars 

The menu bar has become a staple 
of interactive software. You see it 
everywhere: Reflex, Paradox, Lotus 
1-2-3, Turbo C itself. It’s that row of 
selections across the top of the 
screen, telling you the categories of 
things you can do with the program. 
Usually, when you pick a selection, 
that choice leads to others via an- 
other menu bar (the Lotus approach) 
or a pull-down submenu, which I 
discuss later in this article. 

In software with a consistent user 
interface, the menu bar always has 
a predefined place on the screen. 
Here I assume it’s at the top—row 
0—but your own application might 
dictate another location, in which 
case youll have to modify the 
menubar() routine to suit. A menu 
bar also has a fixed text content. If 
you want to add or delete selec- 
tions, that’s a different menu. 

The advantage of a routine such 
as menubar’ ) (Listing Two, page 106) 
is that it interprets the structure 
passed to it. This enables you to 
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pass different structures to a 
common function, obtaining the de- 
sired results in each case. The previ- 
ous menu bar is replaced by the 
new one, effecting an instantaneous 
change in context. 

Given that all menu bars in an 
application occupy the same dis- 
play row, any given menu bar can 
be described in terms of its color 
scheme, number of selections, and 
text content. That leads to the defi- 
nition of a menu bar specification 


With multiple 
pop-up windows, 
a circular 
doubly linked list 
is ideal for 
screen saving. 


as the C structure: 


typedef struct { 
int background, foreground; /* 
colors */ 
int nsels; /* no. of selections */ 
char *sel; /* pointer to text content 
*/ 
} MENUBARSPEC; 


You might want to use different 
color schemes to identify various 
menu bar levels: for example, top 
level=red background, middle 
level = magenta, and low level = blue. 
Also, it’s likely that each menu will 
have its own number of potential 
selections. A generalized routine 
such as menubar() can _ easily 
handle these variations, simply pluck- 
ing them from the structure. 

The menubar() function first iden- 
tifies its environment by getting the 
active page and the number of text 
columns available (40 or 80), and 
then it builds the background/fore- 
ground attribute byte with a call to 
the video library’s chattr() function 
(a service function that does not call 
the ROM BIOS directly or indirectly). 
Next, it clears the current menu bar 
row and sets the attribute by writing 


out a stream of spaces for the full 
screen width. Finally, it writes the 
text of the menu selections. 

The menu selections are specified 
in a separate string, a pointer to 
which appears in the menu specifi- 
cation. For convenience, the string 
has the form: 


menutext = “sel1\0sel2\0sel3\0seln\0” 


in which each text element is null- 
terminated. This is easier to handle 
than the more conventional two- 
dimensional array of characters, as 
the last loop in menubar() illus- 
trates. 

Using this approach, you can 
define a menu bar by first initializ- 
ing its text content, then its appear- 
ance and a pointer to the text con- 
tent in a structure of type MENUBAR- 
SPEC. If you had two menu levels, 
separately defined, you could dis- 
play the top level with menubar 
(&firstLevel); and, on the appropri- 
ate signal from the user, switch to 
the next with menubar (&second- 
Level);. 

Because menu bars tend to have 
a fixed appearance and content, it’s 
easy to implement them using this 
scheme. Pop-ups are more flexible 
and consequently a little more de- 
manding. Still, you can create a wide 
variety of pull-down menus and pop- 
up windows using a common set of 
routines and structures, as dis- 
cussed next. 


Pop-Ups and Pull-Downs 

In practice, there’s no difference be- 
tween the two. A pop-up is a 
window that can appear anywhere 
on the display. A pull-down is a 
pop-up that looks as though it 
dropped down from a menu bar 
selection. The distinction is purely 
one of location. 

Pop-ups rely on the ROM BIOS 
window routine (function 6 under 
interrupt 10h). Despite its compre- 
hensive-sounding name, the BIOS 
routine is useful for only two things: 
scrolling a subset of the screen and 
filling that subset with a background 
attribute to give it a color. User- 
written routines that want to do 
more than this will have to provide 
code to overcome its limitations. 

POPWIN.I (Listing One) furnishes 
generalized routines for managing 
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pop-up windows, relying on the low- 
level routines from the video library. 
This is an #include file, and there’s 
little advantage to making it into a 
linkable library because any window- 
ing program needs all the functions 
it contains. 

Like a menu bar, a pop-up can be 
described in terms of its characteris- 
tics, which in this case are: 


@ the coordinates of its opposite cor- 
ners (giving both location and size) 
® the text attribute (background/fore- 
ground colors) 

® the border type (single- or double- 
score) 


The POPDESCR _ structure in 
POPWIN.I provides a window de- 
scriptor. 

The static array bord! ][] gives the 
ASCII values for single- and double- 
score text characters that form the 
window border. The border choices 
are 0 for no border and 1 and 2 for 
single- and double-scores, respec- 
tively. 


POPWIN.I contains four functions 
for directly manipulating windows: 


@ popMake() creates and displays 
the blank window described by the 
structure passed to it as an argu- 
ment 

® popScroll() scrolls the window’s 
contents upward by one row 

® popxy() positions the cursor rela- 
tive to the window’s_ upper-left 
corner 

@ popPuts() writes a string starting 
at the specified cursor position 


The other two — functions— 
saveScrn() and_ restScrn()—save 
and restore the display image. 

To use these routines, you must 
first initialize a POPDESCR structure 
for each window you plan to use. 
Thereafter, simply pass a structure 
address to the pop routines as you 
call them. Because the routines do 
not preserve the caller's cursor posi- 
tion, your code must do so before 
the calls. 

Note that, unlike the menu bar 
structure, POPDESCR doesn’t con- 
tain a pointer to the window's text 
contents. This allows you to use a 


The C Programmer's Assistant 


C TOOLSET © 


Unix-like Utilities for 
Managing C Source Code 


No C programmer should be with- 
out an assistant. C ToolSet provides 
you with the support you need to 
make C programming easier. 

All of the utilities are tailored to 
the C language but you can modify 
them to work with other languages 
as well. 

Source code in standard K&R C 
is included. You are welcome to use 
it with any compiler (UNIX com- 
patible) and operating system you 
choose. 

The documentation contains de- 
scriptions of each program, a listing 
of program options, and a sample 
run. On-line help responds to -? on 
the command line with a list of 
options 


The 
Coder’s 
Source™ 


a 


(O) 


12 Time Savers 


DIFF - Compare files line by line; 
use CMP to compare byte by byte. 
GREP - Regular expression search. 
FCHART - Trace the flow of control 
between large program modules. 
PP - Format C program files so they 
are easier to read. 

CUTIL- General purpose file filter. 
CCREF- Cross reference variables. 
CBC (curly brace checker) - Check 
for pairing of curly braces, parens, 
quotes, and comments. 

Other utilities include DOCMAKE, 
ASCII, NOCOM, AND PRINT. 
Requires MSDOS and 12K RAM 


MONEYBACK GUARANTEE 


Try C ToolSet ($95) for 30 days — 
if not satisfied get a full refund. 


Call (800) 255-4659 


In MA (617) 331-0800 


541-D Main St., Suite 412, So. Weymouth, MA 02190 
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common descriptor for several win- 
dows that contain variable text: con- 
text-sensitive help windows, for ex- 
ample. Use popPuts() to write to the 
window. 

The popMake() function opens a 
window, fills it with the assigned 
text attribute, draws a_ border 
around it (unless the structure’s 
border member is zero), and posi- 
tions the cursor in the upper-left 
corner. When creating a new 
window, call this function first. Note 
that the border is outside the 
window's defined text area; that is, 
if the window's upper-left corner is 
at (12, 15), the left side of the box is 


at column 11 and the top is at row 


14. The right side and bottom are 
similarly one unit beyond the text 
area. Thus, don’t put a window at 
any extreme position on the display, 
lest the border be partly invisible or 
partially visible in an unexpected 
place. 

The popScroll() routine shifts the 
window's contents upward one row 
by calling the winScroll() function 
in the video library, passing it the 
boundaries of the area to be scrolled 
and the text attribute to fill the 
newly opened row at the bottom. 
PopPuts() uses this routine to guard 
against text overrunning the bottom 
of the window. 

Use popxy() to position the cursor 
within the window, using the upper- 
left corner as the origin. No matter 
where the window is physically lo- 
cated, popxy(0,0,win) refers to its 
upper-left corner, effecting viewport 
text coordinates. This function is 
therefore a window-oriented analog 
to the video library's gotoxy(). 

The popPuts() function writes text 
to the window, starting at the speci- 
fied coordinates with respect to the 
window's upper-left corner. It con- 
tains safeguards to ensure that the 
text does not get outside the 
window, wrapping if the text tries 
to go beyond the right side and 
scrolling if it tries to go past the 
bottom. The function accommodates 
a new line (\n’) embedded in the 
text, but it does not have formatting 
capabilities like printf) does. If you 
want to write variables to a window, 
use sprintf{) to set up the text string, 
then pass the results to popPuts(). 

The functions for saving and re- 
storing the video buffer work unpre- 
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TURBO PASCAL 
AND TURBO C... 
MEET 

TUORECG 


“Ideal! TurboHALO does the job 
comparable to packages costing 


$3000 to $4000.” 
Jim Bromley 
Superintendent of “T like the speed of 
Spectrum Management TurboHALo...it’s ten times faster 
than the competition.” 
Deniz Terry 
Doctoral Candidate 
“TurboHALO is so fun... 
I use it to design 
programs as a hobby...It’s got 
lots of ability.” 
William Porter 
Control Systems Manager 
“We evaluated all of the graphic 


development packages for Turbo 
Pascal, and TurbOHALO was the 
hands down winner!” 
Quinn Curtis 
Largest New England Distributor 








GRAPHICS 
PROGRAMMING 








It’s time to put graphics 

into your programming. 

A picture's worth a thousand words. 
SO your programming isn’t complete 
until you have graphics. TurboHALO 
brings your screen and printer to life 
with subroutines that draw, chart, map, 
and display. All with color, shape, 
clarity, perspective and motion. With 
TurboHALO, create any picture you 
can imagine. 

TurboHALO gives you 

graphics power. 

TurboHALO gives you everything you 
need for Turbo C and Turbo Pascal 
graphics programming. A library of 
over 150 graphics subroutines. Drivers 
for over 42 graphics hardware devices 
for the IBM PC family and compatibles. 
You can create the images you want, 
on the hardware you have! 

Fast, proven and reliable. 
TurbDoHALO is up to ten times faster 
than other graphics toolkits. And with 
TurboHALO you get proven, reliable 
programming tools used by 
professionals for years. 

You'll like TurboHALO or your 
money back! 

TurboHALO is available for only $95. 
You get an unconditional 45-day 
money-back guarantee on TurboHALO. 
To order, call your dealer or IMSI at 
(415) 454-7101 or (800) 222-4723; in 
CA (800) 562-4723; in Washington DC 
(202) 363-9340 or in NC(919) 854-4674. 
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YES, I want to see the difference 
TurboOHALO makes in my graphics 
programming! Rush me the following 
TurboHALO Graphics Toolkit(s) @ $95 
each plus $3 shipping. California 
residents add 6% sales tax. 


0) TurboHALO for Turbo Pascal 


(0) TurboHALO for Turbo C 
(Check enclosed for $ 
(made payable to IMSI) 
COCharge my credit card 
for $$ C«dsGsvisA OF MasterCard 
Signature 
Card Number Expiration Date 
Name 
Title 
Company 
Street 
City State Zip 


™ 


Mail to: 


IMSI, 1299 Fourth Street, San Rafael, CA 94901 
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TurboHALO requires 256K memory (min); memory resident drivers require 2K (Turbo Pascal only); DOS version 2.0 or higher; Borland language/compiler required. TurboHALO is a trademark of 


Media Cybernetics and IMSI. Turbo C and Turbo Pascal are trademarks of Borland. 
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PROGRAMINIER 


BUYS 
INBOARD 386; 
ENDO UF I 
HOT WATER. 


When Jim Johnson's C program Or spend $200@ for an Intel 
got to be more than his IBMPCAT* Inboard” 386 system. 
could handle, he had two choices: As you might suspect, he chose 
Come up with $6000 for a the Intel Inboard 386. And got 
brand new 386 system. the full power of a 386 system. 









Allowing him to cut his compiling 
time in half Without compro- 


mising one bit on r¢liability And 
with the extra 008 e puta 
mahogany hot tub on his deck. 








How can we give you the same 
for so much less? Simple. Ifyou 
have an IBM PC AT or compatible, 
you already own 2/3 of a 386 
system. And when you install an 
Inboard 386, you get the rest of it. 

Besides the price, how do they 
compare? According to a recent 
InfoWorld product 
review, Inboard has | 
the best computing § 
speed ofall micro | 
systems we have 
tested to date, sg 
including all other 386 systems. 

The reason Inboard is so fast 
is because of its zero wait state 
cache and 32 bit memory To give 
you even greater performance, 
there's also a special socket for the 
80387-16 math coprocessor. 

Software compatibility is 


contact your local dealer. 








unsurpassed as well. According 
to PC Week “The Inboard 386 
proved perfectly compatible with 
a standard IBM PC AT and every 
software product we tested’ It’s 
compatible with advanced soft- 
ware, too, including 386 control 
software for multitasking. And a 
number of developers are already 
using Inboard to create OS/2° 
applications. $1595 

Of course, you pé probably 
wondering ifa system can 
be as reliable as a $6000 one. 
Absolutely Because it’s built by 
the same company that designed 
the 80386 microprocessor. And 
backed by a five-year warranty, 

If you still need more infor- 
mation on which system is best, 
call us at (800) 538-3373. Or 
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And then take a hot bath. 


When your workload is too much 


to handle, it's the best way we 


know to unwind. 





ie l 
Trademarks/owner: IBM PC AT, OS/2/International Business Machines Corporation; 
Inboard/Intel Corporation. © 1987 Intel Corporation 
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386 SPEED-ONLY $1,495 


Give your PC a new lease on life! With our industry first 
386 MotherBoard, your PC, PC/XT or compatible will 
revel in speeds equal to the Compaq DeskPRO 386. And 
faster. Because we've built in 1 Megabyte of high speed 
RAM and a 387 math coproressor socket for speeds that 
will knock you off your rocker. 

To keep retirement at bay, our 386 MotherBoard 
is compatible with the PC/AT (BIOS and I/O) — allowing 
you to run the new generation of DOS, OS/2. We've also 
included a 16-bit expansion slot that accommodates the 
latest I/O expansion card. No accelerator card can give 
you so much versatility. 


GET HAUPPAUGE'S NEW 386 MOTHERBOARD. 
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SAVE YOUR PC FROM EARLY RETIREMENT. 


With 386 power and true AT software compatibility, your 
business, desktop publishing and engineering applications 
will get a boost to boast about! Technical Features = 16 MHz 
80386 = 1 Megabyte of 100 nsec 4-way interleaved RAM 
= PCAT compatible I/O and BIOS for support of OS/2 = Seven 
8-bit expansion slots = Two 16-bit expansion slots * One 
32-bit RAM expansion slot = Optional 16 MHz 80387 math 
coprocessor ($695) 

Put the power of the 386 into your IBM PC for 1/4 the cost 


of a 386 computer. And put off your PC’s retirement. For 
more information on our easy-to-install Motherboard, call 
1 (800) 443-6284. In NewYork, call (516) 360-3827. 


Hauppauge Computer Works, Inc. 
358 Veterans Memorial Highway, Hau 


Commack, New York 11725 Trademarks: IBMPC 
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GRAPHICS TOOLBOX 
(continued from page 56) 


dictably with IBM display adaptors 
(MDA, CGA, and EGA) but work nor- 
mally with Hercules and other third- 
party video boards. You can make 
them more intelligent with the tech- 
niques in last month’s installment. 
As written, these functions assume 
that if the video mode is 7, an MDA 
(or an EGA emulating an MDA) is 
present and using screen memory 
at segment BO0O and that otherwise 
a color device is using the video 
buffer at segment B800. 

In either case, because these rou- 
tines service text displays, they 
assume a _ 4,096-byte display 
memory. SaveArea() allocates a 
node of that size on the heap and 
copies the video buffer to it, return- 
ing a pointer to the node. Afterward, 
you can create a pop-up. To make 
the pop-up disappear later, pass the 
node pointer to restScrn(), which 
moves the saved image back into the 
video buffer and frees the heap 
space. 

Now let's put these two visual 
subsystems—menu bars and pop- 
ups—to work in a demonstration. 


Tying It Together 
MENUDEMOC (Listing Three, page 
106) writes a menu bar across the 
top of the screen and provides two 
pull-down submenus on successive 
keypresses. Some text appears under 
the pull-downs so that you can see 
how overlaid information is restored 
when a window is removed from 
the screen. 

The pull-downs are described by 
the filePop and editPop structures 
and their text contents by the 
strings fileMenu and editMenu. For 
convenience, the strings contain em- 
bedded new lines that will be pro- 
cessed by popPuts() to give the pull- 
downs their proper appearance. 

The initialization steps-in main() 
use the video library's chattr() func- 
tion to complete the filePop struc- 
ture, then copy the structure to 
editPop. The location of editPop is 
computed with reference to the 
second entry on the menu bar, and 
the size of the box is changed. The 
program is now ready to run. 

Setmode(3) has no effect on an 
MDA, but it places other adaptors 
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in color mode (an EGA with a mono- 
chrome monitor displays the colors 
as intensities). After clearing the 
screen, the program writes the 
menu bar and prints out some infor- 
mation about the display. 

The program uses oldx and oldy 
to retain the cursor position before 
reporting it. This is so that, later, a 
subsequent output line will overlay 
the cursor position report. 

When the user presses a key, the 
first pull-down appears, created by 
popFileMenu(). On the second 
keypress, the file pull-down disap- 
pears, the background is restored, 
and popEditMenu flashes up the edit 
pull-down. Two additional key- 
presses restore the original screen 
and end the program. 

Note that, except for the structure 
initialization, it takes only one state- 
ment to display a menu bar and 
only two to create a pop-up (pop- 
Make() and popPuts()). These calls 
exercise a good deal of underlying 
code, of course, but this code re- 
mains out of sight in the #include 
files, where it doesn't needlessly clut- 
ter the program's listing. 


Full Circle 

Obviously, the graphics library I've 
built here wasn't intended to be a 
full-blown graphics toolkit; rather, it 
was meant to provide you with a 
skeletel framework to build upon. 
Use the techniques illustrated here 
to build more powerful visual sub- 
systems in Turbo C that satisfy your 
specific application development 
needs. 


Availability 

All the source code for articles in 
this issue is available on a single 
disk. To order, send $14.95 to Dr. 
Dobb's Journal, 501 Galveston Dr., 
Redwood City, CA 94063, or call (415) 
366-3600, ext. 216. Please specify the 
issue number and format (MS-DOS, 
Macintosh, Kaypro). 


DDJ 
(Listings begin on page 106.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 5. 
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VERSION 
MANAGER 


Now SVM supports local area 
networks and tracks source 


revisions made by multiple 


users in both single-site and 


multi-site configurations. 


Plus... 


Archive Database Tracks Source 
(and Binary) File Revisions 
Audit Trail Reporting Provides 
Info on Project’s Development 
Revision Branches Allow Mul- 
tiple Courses of Development 
Revision Merging and Deleting 
Provide Flexibility in Archive 
Maintenance 

User IDs, Privilege Settings & 
Passwords Help Resolve Access 
Conflicts and Maintain Project 
Integrity 

Optional Text Compression 
Reduces Storage Requirements 
Menu Driven Shell Makes SVM 
Easy to Use 

Single-Site: $299.95" 

5-site LAN: $1000 (extendible) 


SEIDL 
MAKE 
UTILITY 


New program, called SMKgen, 


automatically constructs a 


dependency file by analyzing 


the files in a project. 


Plus... 


Structured Language Used to 
Define Dependencies 


Rich Command Set with Over 
20 Different Statements 


Ability to Handle Nested Include 
Files and Library Dependencies 


Performance & Functionality not 
Found in UNIX Make or Clones 


SMK Only: $99.95" 
SMKgen: Add $50.00 


CALL TODAY 


1-313-662-8086 


Visa/MC/COD Accepted 
Dealer Inquiries Invited 
*Plus postage and Handling 


SEIDL COMPUTER ENGINEERING 
3106 Hilltop Dr., Ann Arbor, MI 48103 
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Listing One (Listing continued, text begins on page 30.) 


Listing 1 


/* cache header */ 


typedef struct CACHE { 


int recl; /* record length */ 
int maxr; /* number of records in cache */ 
long hits; /* number of true finds for cacfind() «/ 
long miss; /* number of misses for cacfind() */ 
long adds; /* number of calls to cacnew() */ 
int (*proc) (): /* pointer to function for processing */ 
long idnt; /* identifier passed to proc() */ 
long *nums; /* numbers of records */ 
char *recs; /* pointer to first record */ 
short *next; /* array of next pointers */ 
short *prio; /* array of prior pointers */ 
char *mark; /* array of process-record markers */ 
short iru; /* oldest index */ 
short mru; /* newest index */ 
} CACDS; 

long cacamem; /* amount of memory allocated */ 

CACDS *cacallo(int, int, int ( *)(), long): 

char *cacmem (int); 

char *cacnum (struct CACHE *, long): 

char *cacold (struct CACHE *); 

int cacflsh(struct CACHE *); 

int cacnew (struct CACHE *, short); 

char *cacfind(struct CACHE *, long); 

int cacproc(struct CACHE *, long); 

int cacunpe (struct CACHE *, long); 

int cacstat:(struct. GACHE *, tong “*, long *, tona™:.*) >; 

int cacfree(struct CACHE *); 


Listing Two 
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Listing 2 
/* cache.c - memory cache 


alan deikman 12/86 


These routines handle a memory cache of fixed sized records. 


All memory is allocated throu 


malloc(). 


Each routine other than cacallo 


a character pointer that is ori 


gh the standard library routine 


() takes as the first parameter 
ginally returned by the cacallo() 


routine. 

cacallo() Allocate cache 

cacold() Get oldest record 

cacnum() Number oldest record and make it the newest 
cacflsh() Process all marked records 

cacfind() Find record n and make it newest 
cacproc() Mark record for processing when freed 
cacunpc {) Unmark record for processing when freed 
cacstat() Get cache statistics 

cacfree() Free cache 

a} 


#include <stdio.h> 
#include <malloc.h> 
#include "cache.h" 


/* cacallo() - Allocate cache */ 


CACDS *cacallo(num, recl, extf, idnt) 


int 


num; /* number of records to allocate */ 

int recl; /* length of each record */ 
int (*extf) (); /* pointer to external processing function */ 
long idnt; /* parameter passed to external function */ 
{ 

CACDS *cac; 

char *cacmem(); 

int i = 0; 


/* set up cac structure with initial values */ 


if (num < 2) num = 2; 

cac = (CACDS *) cacmem(sizeof (CACDS) ); 

cac=>recl = recl; 

Cac->maxr = num; 

Cac—>proc = extf; 

cac=->idnt = idnt; 

cac->hits = 

cac->miss = 

cac->adds = OL; 

cac->nums = (long *) cacmem(num * sizeof (long)); 
Cac~>next = (short *) cacmem(num * sizeof(short)); 
cac=>prio = (short *) cacmem(num * sizeof (short) ); 
cac~>mark = cacmem(num); 


cac->recs 


cacmem(num * recl); 


/* initial lru/mru chain */ 


while (i < num) { 
cac~>next(i] = i + 1; 
cac->prio({i) = i-1; 


cac->nums(i}) = -1; 


cac->mark[ij] = 0; 


L432 } 





End Listing One 
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Listing Two (Listing continued, text begins on page 30.) 


cac->next [num - 1) = cac->prio[0} = -1; 
cac->mru = 0; 
cac->lru = num - 1; 


/* return cache pointer */ 


return cac; } 


/* allocate memory with error checking */ 


char *cacmem(siz) 
int siz; 
{ 
char *c; 
c = malloc(siz); 
if (c — (char *) Q) { 
fprintf(stderr, “cacallo: Can't allocate memory. \n"); 





fprintf(stderr, "Tried to get %d bytes on top of %ld bytes already\n", 


siz, Cacamem); 
exit(1); } 
cacamem += siz; 
return c; } 


/* number oldest record and make it the newest. if the record was 
marked for exit procesing, call external precessing function. 


return pointer to record */ 


char *cacnum(cac, num) 


CACDS *cac; /* cache header */ 
long num; /* number new MRU record */ 
{ 

char *rec = cac->recs + (cac->lru * cac->recl); 


/* call external function */ 
if (cac->mark(cac->lru]} && cac->proc) 

(* (cac->proc) ) (cac->idnt, cac->nums(cac->lru], rec); 
/* unmark record and make it newest */ 
cac->mark[cac->lru] = 0; 
cac->addstt; 
cac->nums[cac->lruj] = nun; 
cacnew(cac, cac->lru); 


/* return record; ready for usage */ 


return rec; } 











Announcing 
WKS LIBRARY NEW! 


The Lotus ‘‘Wrap-Around’’ for C Programs 





















Now you can write and read Lotus worksheets 
directly from a C program! 


WKS LIBRARY lets you: 


e avoid time-consuming file translation steps 

© control the execution of 1-2-3 from inside your application 
e use Lotus as a data entry screen in your C program 

e generate ‘‘live’’ financial statements with formulas for totals 


Feature this: 

e reads and writes .WKS, .WK1 and .WR1 worksheets 

e writes integers, floats, strings, formulas, macros and dates 
using wprint{O) 
reads using wscanf(), converting column contents to C 
variables according to format specs 
has low-level functions for manipulating individual cells 
provides Lotus control functions such as: 
formats, column widths, initial cursor position, range 
names, cell protection 
supports Lattice, Microsoft & Turbo compilers for DOS, plus 
most UNIX environments 


Source Code provided No Royalties on executable programs 
Only $89 ZZ ORDER TODAY! 


(includes free . Toll-free 
800-line support) (800) 367-9882 


Tenon Software, Inc. 


| a | 1980 - 112th NE, #250, Bellevue, WA 98004 
COR Sho CRUE Oni miciCg) 
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CANADA’S 


SOURCE FOR C 





- Canadian Sales 
- Canadian Service 
- Canadian Technical Support 
- Canadian Product Knowledge 





We specialize in programming & development software 





LIFEBOAT « LATTICE * GREENLEAF « PHOENIX 
SOFTCRAFT « MICROSOFT « BLAISE « ESSENTIAL 
AGE OF REASON « DESMET « AZTEC 
MARK WILLIAMS « GIMPEL » ROUNDHILL « GSS 
HALO « FAIRCOM « RAIMA « INTEL « etc. « etc. « 





Call for full price list Dealer enquiries welcome 





We know our products—we use them! 


SCANTEL SYSTEMS LTD. 
801 York Mills Rd., Don Mills, Ont. M3B 1X7 
(416) 449-9252 
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Listing Two (Listing continued, text begins on page 30.) 


/* get pointer to oldest record without altering age */ 


char *cacold(cac) 
CACDS *cac; /* cache header */ 


{ 
return cac->recs + (cac->lru * cac->recl); } 


/* if an exit processing routine has been defined, process all marked 
records */ 


cacflsh(cac) 


CACDS *cac; /* cache header */ 
{ 

int i; 

char *rec; 


if (!(cac->proc)) return; 


for (i = 0; 1 < cac->maxr; itt) Lf (cac->mark[i]}) { 
rec = cac->recs + (i * cac->recl); 
(* (cac->proc) ) (cac->idnt, cac->nums[i], rec); 
cac->mark[i] = 0; } 


return; } 


/* make record newest */ 


cacnew(cac, rec) 
CACDS *cac; /* cache header */ 
short rec; /* record to make newest */ 


{ 
/* if this record is already the newest, just return */ 
if (rec — cac->mru) return; 
/* change prior's next */ 
cac->next (cac->prio[rec]] = cac->next [rec]; 


/* change next's prior - if there was no next that means this was the 
lru record. change lru */ 


if (cac->next[rec] != -1) 
cac->prio[cac->next[rec]] = cac->prio[rec]; 
else { 
if (rec != cac->lru) { 
fprintf(stderr, “cacnew: panic\n"); 
exit(l); } 
cac->lru = cac->prio[rec];: } 


/* now the record is out of the chain. stick it back in at the mru end. 


cac->prio(cac->mru] = rec; 
cac->next [rec] = cac->mru; 
cac->prio[rec] ale! 
cac->mru = rec; 


/* done */ 
return; } 
/* find record and make it newest */ 


char *cacfind(cac, num) 


CACDS *cac; /* cache header */ 
long num; /* record number to look for */ 
int. i: 


for (1 = 0; 1 < cac->maxr; i++) if (cac->nums[i] — num) { 
cac->hitstt+; 
cacnew(cac, i); 
return cac->recs + (i * cac->recl); } 

cac->misst+t; 

return (char *) Q; } 


/* mark record for external processing */ 


cacproc(cac, num) 


CACDS *cac; /* cache header */ 
long num; /* record to mark */ 
int: is 


for (i = 0; i < cac->maxr; itt+) if (cac->nums[i] == num) { 
cac->mark[{i}) = 1; 
return; } 

return; } 

/* un-mark record for external processing */ 


cacunpc(cac, num) 


CACDS *cac: /* cache header */ 

long num; /* record to unmark */ 

( 
int is 


for (i = 0; i < cac->maxr; i++) 1f (cac->nums[{i] — num) { 
cac->mark[i] = 0; 
return; } 

return; } 


/* get statistics cf the cache */ 


7 


(continued on page 67) 
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Actor™ is a new language that combines Microsoft® Windows with 
object-oriented programming. This means you can produce mouse and win- 
dow applications very quickly. 

For example, we created a simple “paint” program, and used it to draw 
the Actor logo you see on the screen. The whole program only took ten lines 
and ten minutes. Part of it is in the middle window on the left. 

‘ Above, you see the commands that initialized the paint window and 
made it appear on the screen. Below, some code that’s built into Actor, 
specifying window behavior Through a process known as “inheritance, it’s 
called into play automatically. 








Try programming in this new way, and you'll never go back. 

And out about Actor. 

| Call The Whitewater Grou p,(612). 491237 O. 
| Technology Innovation Sie WINDOWS 

| 906 University Place, Evanston, IL 60201 > 
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Welcome to Paradise. The microcomputer software source that caters to your slsateidinse ee needs. 


Over 500 brand-name products in stock —if you don’t see it, call! 





LIST OURS 
386 SOFTWARE 
ADVANTAGE 386 C 895 799 
ADVANTAGE 386 PASCAL 895 799 
MICROPORT SYSTEM 
V/386 (COMPLETE) SPECIAL 799 679 
MICROSOFT WINDOWS/386 195 125 
PHARLAP 386|ASM/LINK 495 419 
PHARLAP 386 DEBUG 195 155 
SCO XENIX SYS V 386 (COMPLETE) 1495 1195 


VM/386 SPECIAL 195 119 


ARTIFICIAL INTELLIGENCE 
ARITY STANDARD PROLOG 95 CALL 
GOLDEN COMMON LISP 495 CALL 
MICROSOFT LISP 250 155 
PC SCHEME 95 85 
SMALLTALK V 99 85 
TURBO PROLOG 100 65 
TURBO PROLOG TOOLBOX 100 65 
ASSEMBLERS/LINKERS 
ADVANTAGE DISASM. SPECIAL 295 249 
ADVANTAGE LINK 395 359 
ASMLIB 149° («125 
EZ_ASM 70 65 
MS MASM CALL-REBATE OF F ER ioe 95 
PASM86 195 109 
PLINK86PLUS__. 495 275 
RELMS CROSS ASSEMBLERS CALL CALL 
UNIWARE CROSS ASSEMBLERS ._ CALL CALL 
VISIBLE COMPUTER 80286 100 89 
BASIC 
DB/LIB 99 89 
FLASH-UP © 89 79 
MACH 2 75 59 
MS QUICKBASIC 
CALL-REBATE OFFER 99 65 

QUICKPAK 69 59 
TRUE BASIC 100 69 
TURBO BASIC 100 65 

DATABASE TOOLBOX 100 65 

EDITOR TOOLBOX 100 65 


TELECOM TOOLBOX 100 65 





C++ 

ADVANTAGE C + + 495 479 
PFORCE. + + 395 209 
C COMPILERS 

C86PLUS 497 375 
HIGH C 595 CALL 





LIST OURS 
LATTICE C SPECIAL PRICE 500 CALL 
MICROSOFT C 450 269 
QUICKC CALL-REBATE OFFER 99 65 
TURBO C 100 65 
C INTERPRETERS 
C-TERP... 298 219 
INSTANT C 495 369 
RUN/C 120 79 
RUN/C PROFESSIONAL 250 155 
C LIBRARIES 
BASIC_.C 175° 129 
C ASYNCH MANAGER 175. 135 
C-FOOD SMORGASBORD 150 95 
W/SOURCE CODE 300 «179 
C/PAC (PFORCE, PRE-C) SPECIAL 495 279 
C TOOLS PLUS/5.0 NEW 129 99 
C UTILITY LIBRARY 185 119 
C-XPERT 295 249 
ESSENTIAL COMMUNICATIONS ni 119 
COMMUNICATIONS PLUS 250 189 
GREENLEAF CSAMPLER SPECIAL 95 69 
GREENLEAF COMM LIBRARY 185 125 
GREENLEAF FUNCTIONS 185 125 
MULTI-C 149 135 
PFORCE 395 209 
RESIDENT C W/SOURCE 198 149 
TIMESLICER SPECIAL 295 249 
W/SOURCE CODE 1000 895 
TURBO C TOOLS 129 99 
COBOL 
FPLIB 149 129 
MICRO FOCUS COBOL PRODUCTS CALL CALL 
MICROSOFT COBOL 439 
MICROSOFT SORT 195 129 
OPT TECH SORT 149 99 
REALCICS 995 785 
REALIA COBOL 995 785 
W/REALMENU 1145 899 
RM/COBOL 950 759 
RM/COBOL-85 1250 999 
RM/SCREENS 395 315 
SCREENIO 400 379 
DEBUGGERS 
ADVANCED TRACE-86 175°. 119 
C-SPRITE 175 119 
PERISCOPE I 345 289 
PERISCOPE II 175 139 
PERISCOPE III 8 MHZ 995 825 
PERISCOPE III 10 MHZ 1095 899 
PFIX 86 PLUS 395 209 
T-DEBUG PLUS 60. 49 
XVIEW86 60 49 
DISK/DOS/KEYBOARD UTILITIES 
BACK-IT 100 89 
BOOKMARK 100 79 
COMMAND PLUS 80 69 
DISK OPTIMIZER 60 55 
INTELLIGENT BACKUP 150 §=135 
NORTON COMMANDER 75 55 
ADVANCED NORTON UTILITIES 150 89 
PDISK 145 89 
FILE MANAGEMENT 
BTRIEVE 245 185 
XTRIEVE 245 185 
REPORT OPTION 145 99 


LIST OURS 
BTRIEVE/N 595 455 
XTRIEVE/N 595 455 
REPORT OPTION/N 345 269 
-TREE 395 315 
R-TREE 295 239 
C-TREE/R-TREE BUNDLE 650 519 
DBC Ill 250 169 
DBC III PLUS 750 595 
INFORMIX PRODUCTS CALL CALL 
PHACT MANAGER 249 219 
EDITORS 
BRIEF 195 CALL 
W/DBRIEF 275 CALL 
CVUE W/SOURCE CODE 250 199 
EDIX 195 155 
EMACS 295 265 
EPSILON 195 149 
KEDIT 125 99 
LMK 195 139 
PC/EDT 250 229 
PC/VI 149 109 
Pi EDITOR SPECIAL, NEW 195 149 
PMATE 195 109 
SPF/PC 195 145 
VEDIT PLUS 185 129 
XTC 99 79 
FORTRAN COMPILERS 
LAHEY FORTRAN 477 CALL 
LAHEY PERSONAL FORTRAN 77 95 89 
MICROSOFT FORTRAN 450 269 
RM/FORTRAN- 595 399 
FORTRAN UTILITIES/LIBRARIES 
DOCUMENT’ER 129. 115 
DIFF-E-Q 495 445 
FORTLIB 125 109 
FORTRAN ADDENDA 165 139 
GRAFLIB 175 169 
GRAFMATICS/PLOTMATICS 135 | 419 
MATHPAC 495 445 
NO LIMIT 129 115 
SPINDRIFT LIBRARY NEW 149 135 
SSP/PC 350 269 
GRAPHICS 
ADVANTAGE GRAPHICS (C) 250 225 
ESSENTIAL GRAPHICS 250 185 
GSS GRAPHIC DEV. TOOLKIT 495 375 
HALO 300 205 
HALO (5 MICROSOFT LANG.) 595 389 
METAWINDOW PLUS 275 - 229 
TURBOWINDOW/C 95 79 
TURBO HALO (FOR TURBO C) 100 79 
LINT 
PC-LINT 139 99 
PRE-C 295 155 
MODULA-2 
FARBWARE MODULA-2 90 79 
LOGITECH MODULA-2 
COMPILER PACK 99 79 
DEVELOPMENT SYSTEM 249 CALL 
TOOLKIT 169 139 
WINDOW PACKAGE 49 39 
ROM PACKAGE AND CROSS 
RUNTIME DEBUGGER me 4 239 
REPERTOIRE 75 


Happy Holidays 


from 


Programmer’ 


A Division of Hudson Technologies, Inc. 


/ PRO-C ‘C’ — Source Program 
stand-alone ‘C’ program exactly to your specification. 


_ AMDEK 722 MONITOR 750 


LIST OURS 


OPERATING SYSTEMS 
MICROPORT SYSTEM V/AT 

(COMPLETE) 549 465 
SCO XENIX SYSTEM V 

(COMPLETE) 1295 995 
WENDIN-DOS 99 79 
OTHER MICROPORT, SCO, 

WENDIN PRODUCTS CALL CALL 
PASCAL COMPILERS 
MARSHAL PASCAL SPECIAL 189 149 
MICROSOFT PASCAL 300 §=185 
PASCAL-2 SPECIAL 350 299 
TURBO PASCAL NEWV. 4.0 100 65 
TURBO PASCAL DEV. LIB. NEW 395 259 
BORLAND ADD-ONS CALL CALL 


_ FEATURED PRODUCTS | 


Generator. It produces 
Each program is fully and ready 

They are complete te with documented source code and 
full system documentation. PRO-C gives freedom from 
the time-consuming work associated with Source Code 
development, allowing concentration on more demand- 
Pe ee ee Oe 
List: $399 Special Price: $379 


CARBON COPY PLUS- oC software, 


‘ommunications 
that features both Remote Control‘and Terminal 
- Emulation. 
Remote Control: Use your PC to observe and con- 


trol a remote PC as though the two were one. 
Access your office PC while you are at home. 
Teruinal Emulation: Includes V-52, V-100, 
TVI-920, IBM-3101. Easy to access host computers 
and on-line information databases. Carbon Copy 
Plus will also allow you to send and receive telexes. 
List: $195 Special Price: $139 


Pascal-2 — Highly optimized Pascal compiler, with 
source level debugger, profiler. 
List: $350 Special Price: $299 


ADVANTAGE Disassembler — Provides immediate 
feedback as you work, strong results in tables on disk. 
Final output is ready for MS assembler. Handles COM 
and EXE files 8086/186/286 code and 8087/287 





coprocessors. 
List: $295 Special Price: $249 
TURBO PASCAL ADD-ONS 
ALICE 95 69 
DOS/BIOS & MOUSE TOOLS 75 69 
FLASH-UP 89 79 
METRABYTE DATA ACQ. TOOLS 100 89 
SCREEN SCULPTOR 125 95 
SYSTEM BUILDER 150 129 
IMPEX 100 89 
REPORT BUILDER 130 «6.115 
TURBO. ASM 99 69 
T-DEBUG PLUS 60 49 
TURBO ASYNCH PLUS NEW 129 99 
TURBO EXTENDER 85 65 
TURBO HALO 129 99 
TURBO MAGIC 99 89 
TURBO MASTER 125 99 
TURBO OPTIMIZER 75 65 
TURBO POWER TOOLS PLUS NEW 129 99 
TURBO POWER UTILITIES 95 79 
TURBO WINDOW/PASCAL 95 79 
SCREEN DISPLAY/WINDOWS 
C-SCAPE 279 CALL 
CURSES W/SOURCE CODE 250 169 
GREENLEAF DATA WINDOWS 225 155 
W/SOURCE CODE 395 289 
HI-SCREEN XL 149 119 
JYACC FORMAKER 995 449 
JYACC JAM 750 669 
MICROSOFT WINDOWS 99 65 
MS WINDOWS DEVELOPMENT KIT 500 £309 
PANEL PLUS 495 395 
PANEL FOR QUICKC/TURBO C 129 95 
QUICKSCREEN 195 175 
SCREEN ACE SPECIAL 195 159 
SCREENSTAR W/SOURCE 198 155 
VITAMIN C 225 159 
VC SCREEN 99 79 
WINDOWS FOR DATA 295 235 
VIEW MANAGER 275 199 
ZVIEW 245 169 


HARDWARE PRODUCTS 


499 


-AMDEK 730 MONITOR. 899 569 


_ AST ADVANTAGE PREMIUM W/512K 2° 


AST RAMPAGE! 286 W/512K 
HERCULES GRAPHICS CARDPLUS 299 
ety ues IN COLOR CARD 99 


ORCHID TURBO EGA 
ORCHID TURBO PGA 1495 1099 
VEGA DELUXE 379 259 





ADDITIONAL PRODUCTS 

ADVANTAGE VCMS 379 329 
BASTOC 495 CALL 
SPECIAL 195 139 


CARBON COPY PLUS 

DAN BRICKLIN’S DEMO PROGRAM 75 59 
DB2C 299 CALL 
FLOW CHARTING II 229 205 
MAGIC PC 195 179 
MKS TOOLKIT 139 115 
NORTON GUIDES 100 65 
PFINISH 395 225 
POLYMAKE 149 125 
POLYTRON PVCS CALL CALL 
SOURCE PRINT 95 75 
TP2C 249 199 
TREE DIAGRAMER 77 69 
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Listing Two (Listing continued, text begins on page 30.) 


cacstat(cac, hit, mis, add) 


CACDS 
long 
{ 


*cac; /* cache header */ 
*hit, *mis, *add; /* values to return */ 


*hit = cac->hits; 
*mis = cac->miss; 
*add = cac->adds; 


return; 


/* freec 


} 
ache */ 


cacfree (cac) 


CACDS 

{ 
cacflsh 
cacamem 


free(ca 
free(ca 
free(ca 
free(ca 
free(ca 


return; 


*cac; /* cache header */ 


(cac) ; 
-= sizeof(CACDS) + (cac->maxr * sizeof({long}) + 


(Cac->maxr * 2 * sizeof(short)) + (cac->maxr) + 


(cac->maxr * cac->recl); 
c->recs); 
c->prio); 
c->next); 
c->nums) ; 
G) 3 


} 


Listing Three 


Listing 3 


#include <stdio.h> 


#include "cache.h" 


CACDS *cache; 


main() { 


printf("Cache test routine\n"); 


cache = 


cacallo(8, 128, (char *) 0, 1L); 


printf("Memory allocated = %ld\n\n", cacamen); 


while (ctest()) cprint(); 


exit(0); 


int ctest({ 


int opt, 


} 


pt 


rec; 


long num; 


printf("\nl=old, 2=num, 3=find, 4=proc: "); 
scanf("%d", éopt); 


switch (opt) { 
case 0: return 0; 
case 1: printf("cacold returns $1x\n", cacold(cache)); 
case 2: printf("enter record: "); 


scanf("tld", é&num); 


printf("cacnum returned %1x\n", cacnum(cache, num)); 


return 1; 


case 3: printf("input record to find: "); 


case 4 


scanf("%id", énum); 


printf£("cacfind returned %lx\n", cacfind(cache, num)); 


return 1; 

: printf("input record to process: "); 
scanf("%ld", é&num); 
cacproc(cache, num); 
printf("cacproc called\n"); 
return 1; 


otherwise: return 1; } 


return; 
cprint() { 
register 


printf (" 


} 


int a> 


Cache print: hits=%ld miss=%ld adds=%ld\n", 
cache->hits, cache->miss, cache->adds) ; 


End Listing Two 


return 1; 


printf("Block Numbers Next Prior Mark LRU=%d MRU=%d\n", cache->lru, cache->mrv) ; 


print ft (* 
for (i = 
printf 


return; 


weer Semesters sence en--- ----- wi"); 
0; i < cache->maxr; i++) 
("%Sd %71ld $Sd &5d %4d\n", 1, cache->nums [i], 


cache->next [iJ], 
cache->prio[i], 
cache~>mark[1]}); 


} 
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Read what they’re saying about this 
popular program for prototyping and 
demo-making: 


“A winner right out of the start- 
ing gate. After you use DEMO 
once, you’ll wonder how you got 
along without it.”’ 

—PC Magazine 


‘Everybody who writes soft- 
ware, either commercially or for 
in-house applications, should 
immediately order a copy. Period. 
No exceptions.”’ 

—Soft: letter 


Product of the Month 
—PC Tech Journal 


Thousands of developers and most 

of the largest and best known software 
companies are using this program. 
You can, too. Act now! 


The perfect companion to the Demo 
Program. The Tutorial helps you learn 
the ins and outs of its basic and ad- 
vanced features. Complete with a 96 
page manual containing step-by-step 
instructions, diskette, and function 
key template. \ 


oer No, | 


Cee 
<a WV 
a 

A 


Use 800-number for orders only. 


Questions, special shipping, etc., call 617-332-2240. 
No Purchase Orders. Massachusetts residents add 5% 
sales tax. Outside of the U.S.A., add $15.00. 

Requires 256K IBM PC/Compatible, DOS 2.0 or later. 
Supports Monochrome, Color Graphics, and EGA 
Adapters (text mode only). The Tutorial requires the 
Demo Program. 
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SOFTWARE 
GARDEN. INC. 


Dept. D 


P.O. Box 373, Newton Highlands, MA 02161 


CIRCLE 142 ON READER SERVICE CARD 


67 





DOS LOCATE UTILITY 





Listing One (Text begins on page 38.) 
BOOT.C 


1 #include <stdio.h> 
2 #include <io.h> 

3 #include <stdlib.h> 
4 #include <string.h> 
5 #include'<malloc.h> 
6 
7 
8 
9 


#include “loc.h" 
#include "externs.h" 


11 void create bootstrap(seg list, entry) 
12 SEG DESCRIPTOR *seg list ; 
13. unsigned char ‘*entry ; 


14 { 
a5 unsigned int count ; 
16 unsigned char *ptr ; 
17 
18 SEG DESCRIPTOR *p, *q > 
19 
20 "is 
2d This function sets up a new class which contains the bootstrap 
PH: code to the program entry point. The bootstrap segment is 
23 always located at physical address FFFFOH is ROMable. 
24 
25 The bootstrap record is appended to the load module for the 
26 purpose of locate processing. 
27 a/ 
28 
29 /* Traverse the linked list to the end */ 
30 p = seg list ; 
3i while (p->next != NULL) 
32 p = p->next ; 
33 
34 /* Allocate the memory for the bootstrap record */ 
aa if ((q = (SEG DESCRIPTOR *) malloc(sizeof (* p))) == NULL) { 
36 perror( FILE) ; 
37 exit (1}-¢ 
38 } 
39 
40 /* Append the bootstrap record to the end of the list */ 
41 p->next = q; 
42 
43 /* Initialize the bootstrap segment descriptor */ 
44 strcpy(q->name, “??BOOT") ; 
45 strcpy (q->class, “(ABSOLUTE)") ; 
46 q->vseg = Oxffff ; 
47 q->pseg = Oxffff ; 
48 q->offset = Ox0000 ; 
49 q->len = 5; 
50 q->inited = TRUE ; 
$2 q->romable = TRUE; 
ae q->symbols = 0 ; 
33 q->symbol_ list = NULL ; 
54 q->next = NULL ; 
55 
56 /* Allocate RAM and build the reset vector code using a far jump */ 
of ptr = malloc(q->len) ; 
58 *ptr = OxEA ; 
59 *((unsigned char **) (ptr + 1)) = entry ; 
60 
61 /* Append the bootstrap code on tail of the load module */ 
62 Q->position = lseek (tmp file, OL, SEEK _END) ; 
63 count = write(tmp file, ptr, q->len) 3 
64 1f (count != q->len) { 

; 65 perror(_ FILE) ; 
66 exit(1) ; 
67 } 
68 
69 free(ptr) ; 
70 return ; 
a End Listing One 

e ce 
Listing Two 
FILES.C 


1 #include <stdio.h> 

2 include <fcntl.h> 

3 #include <sys\types.h> 
4 #include <sys\stat.h> 
5S #include <io.h> 

6 #include <string.h> 

- 

8 


#include "loc.h" 
9 #include “externs.h" 


10 

11 #define F_OPEN O_RDONLY | O BINARY 

12 #define F CREATE O CREAT | O TRUNC | O RDWR | O BINARY 
13 © a . 

14 


15 void open file _System(input_ file) 
16 char *input_ file ; 


Le ff 

18 char *create str = “Can't create %s" ; 
19 char *open_str = "Can't open %s" ; 

20 char errmsg (MAX _ LINE) ; 

21 char *filename ext ; 

22 

‘2a /* 

24 This module is responsible for openning or creating all of the 
25 files used by this utility. 

26 w/ 

27 


(continued on page 73) 
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Our software comes with something 


no one else can offer. 


When you join the Lattice family 
of customers, you'll discover that 
your software purchase is backed 
by more than just an excellent 
warranty. It’s backed by unparal- 
leled technical support. By a total 
commitment to your success and sat- 
isfaction. And by Lattice’s dedication 
to excellence in products and services. 


Unlike other software manufacturers 
who charge you for services after you’ve 
purchased their product, Lattice offers 
a unique package of support programs 
at a price we can all live with—FREE. 


Lattice Bulletin Board Service 
LBBS is our 24-hour a day bulletin 
board system that allows you to obtain 
notification of new releases, general 
information on Lattice products, and 
programs for the serious user. And if 
you've ever experienced the frustration 
of having to wait a year or more for 

a new release (that has corrected a 
bug), you’ll really appreciate LBBS. 
Because with this service, you can 
actually download the latest program 
fixes to instantly eliminate any bugs 
discovered after release. 


Available through dealers and 
distributors worldwide. 


EEE 


Lattice Service. 


Technical Support Hotline 
Responsible, dependable and capable 
Support Representatives are only a 
phone call away. You will talk to a highly 
skilled expert who is trained to answer 
any questions you have relating to 
specific Lattice products. Remember, 
your complete satisfaction is our goal. 


McGraw-Hill BIX™ Network 
The Byte Information Exchange (BIX) 
Network is a dial-in conference system 
that connects you with a Special Interest 
Group of Lattice users. The nominal 
one-time registration fee allows you 
to BIX-mail your questions—via your 
modem—directly to Lattice. Or you 
can post your questions in the con- 
ference mode for Lattice or other users 
to answer. Once again, you have 
24-hour access. 


S27 
ee 


ee 





Lombard, IL 60148 


j tti Phone: 800/533-3577 
a Ce In Illinois: 312/916-1600 


Subsidiary of SAS Institute Inc. 
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Lattice, Incorporated 
2500 S. Highland Avenue 


You Also Receive: 

# Timely updates and exciting 
enhancements ® 30-day, money- 
back guarantee ® Lattice Works 
Newsletter ® Technical Bulletins 
® Access to Lattice User Groups 


Lattice has developed more than 50 
different Microcomputer software tools 
that are used by programmers world- 
wide. We were there for every MS-DOS 
release. We’re there now for OS/2. And 
we'll be there for the next generation 
of technical changes. But most of all, 
Lattice is there for you. 
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This ad is for le who 
don't louie where to find Smalitalk. 
Or why. ) 


‘Today, the single most important emerging software technology 

is OOPS, object oncnted programming. It’s destined to dramatically 
change the way you use your personal computer. 

You'll find it doing things you never expected. 

And by people you never suspected. 



























At the UCLA Medical 
Center, it sees 
patients before the 
doctor does. 
i Mike McCoy, M.D., at the UCLA Medical 
in an peg cy ine live Center, pes that he could easily interface 
Vancouver, it’s saving lives Smalltalk/V with dBASEII and Post. 
through animation. Script. His application, now 1n use at 
What if a medical textbook could come to life? What the Clinic, turns a functional status 
if it could show the effects emergency treatment might questionnaire on each new patient into 
have on patients? And do tt all through moving pic- a laser printed, advisary analysis for 
tures? These thoughts led Folkstone Design, Edge the doctor to review prior to seeing the 
Training & Consulting, and Inform Software im patient.A program like this would 
Vancouver, B.C., to create the first animated, inter- normally take a specialist months to 
active textbook for emergency room technicians and produce. It took Dr. McCoy less than 
in-training paramedics. They found Smalltalk/V 100 hours with 
could easily facilitate a combination of text, color Smalltalk/ V. 


graphics and animation to illustrate various 
physical processes and the results of 
medical intervention. 






It’s working on 


Florida’s freeways. 

Running on IBM’s new PS/2, a Smalltalk/V application 
developed by Greiner Engineering’s Mike Rice, lets high- 
way engineers create highly sophisticated graphic analyses ‘ 
of any proposed reconstruction. So now, instead of having 
to deal with a gridlock of Federal and State regulations, 
engineering specifications and endless calculations, an 
engineer can quickly explore alternative design strategies 
using a mouse, windows and VGA color graphics. . 


Smalltalk/V requires DOS and 512K RAM on IBM PC/AT/PS or tibl 

EGA, Toshiba T3100, Hercules, or AT&T 6300 graphic controller 4 Micactiee hate 

ae acest Is recommended. Not copy protected. dBASE , PostScript and PS/2 are trademarks of 
shton-Tate, Adobe Systems and International Business Machines Corporation respectively, 


mettre 


— 
















You can find it in space. 
On a project commissioned by NASA, Dr, Christine Mitchell 
at the Georgia Institute of Technology, chose to use 
Smalltalk/V as an integral part of a new man-machine 
interface. The application, written in Smalltalk, continually 
monitors the commands of the Satellite Network Operator, 
the state-of-the-network and the overall mission plans. 

| To NASA, Smalltalk/ V means 
real-time. Real OOPS. Real results. 


rit} Document Browser a 
fot dor 


dan alitrak 
catcard e 


_It's tracking 
white-tail deer on 
the Barrier Islands 

of Georgia. 

Dr. Lee Graham, a National Park Service 

ecologist chose Smalltalk/V to write an appli- 
cation to help manage the white-tail deer popu- 


“ It’s making headlines in Arizona. 
lation on the Barrier Islands of Georgia.Dr.Graham * 


When Digital Composition Systems sat down to build an 
electronic typesetting system, they had three major requirements. 


found that Smalltalk/V; with tts visual interface and It had to have the most advanced user interface. It had to be fast. 
class structure, ts a perfect tool to graphically simulate And, 1t had to be able to turn untrained personnel into high quality 
the complex, ecological interactions of natural systems. typographers. Of all the languages in the world, they chose Small- 


talk/V. The result is the Signature Series, recognized and reviewed 
by The Seybold Seport. Its now marketed by Digital Composition 
Systems and one of the largest digital typesetting firms in the 
world, Vanityper AM International. 


What thousands of people And it’s easy to learn. It comes Or, write to Digitalk, Inc., 9841 Airport 
have found is OOPS. complete with a tutorial that’s the Blvd., Los Angeles, CA 90045. Then 
Object-Oriented Programming (OOPS) best introduction to OOPS available. _ discover all the great things you can 
is programming by defining objects, Smalltalk/V also has a few other do with your PC and Smalltalk/V. 
their inter-relationships and their features worth noting. Like a user- 


behavior. Objects can represent both extendable, open ended environment. 
real-world entities like people, places, | Source code with browser windows 





or things. They can also represent for easy access and modification. 
useful abstractions such as stacks, A huge toolkit of classes and objects 
sets and rectangles. for building a variety of applications. 


OOPS models the A sophisticated source-level debugger. 
way you think and the Object-oriented Prolog integrated 
way things really are.It | with the Smalltalk environment. And 
lets you solve problems _ bit-mapped graphics with bit and 
by breaking them down form editors, just to name a few. 
into easily handled _ Then, there's its unbelievable _ 
sub-problems and their _ price of only $99.95. (Optional appli- 
inter-relationships. The cation packs at $49.95 include 
solutions you come up Communications, EGA/VGA Color 
with can be re-used to and Goodies.) 
















solve new problems. And it has a 60 day, money-back 
Ultimately OOPS makes guarantee. _ 
programming a simple, With all this to offer, it probably 
| logical process of building on the wont come as a surprise to you 
> work of others. that more people are solving more 
> problems with Smalltalk/V than 
Why thousands more any other OOPS. 
are finding their way to See your nearest dealer 
Smalltalk/V. today for your own Small- 
First of all, Smalltalk/V makes OOPS _ talk/V. Or, order it direct 
: with MasterCard or Visa 
: easy. 
It’s also fast. In fact, it’s the fastest at (800) 922-8255. 


OOPS programming available on a PC. 


*Now that you’ve found us, write us. Tellus some of the _ 
great things you’re doing with Smalltalk/V. You could be in our next ad. 
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| : run your unmodified QNX applications or 
ny mix of machines, either standalo 
QNX local area network, in real mod 
_ >’s or in protected mode on AT’s. 
~ Only QNX lets you run multi- user/multi- 
tasking with networking on all = fe) 
machines. 
REAL TIME QNX real-time performanc 
leaves both OS/2 and UNIX wallowing at 
_ the gate. In fact, QNX is in use at thousand: - 
of real-time sites, right now. - 


, NETWORKING, REAL-TIME OPERATING SYSTEM FOR THE IBM PC, AT, PS/ 
: : THE HP VECTRA, AND COMPATIBLES 
Multi-User 10 (16) serial terminals per PC (AT). C Compiler Standard Kernighan and Ritchie. _ 


Multi-Tasking 40 (64) tasks per PC (AT). Flexibility | Single PC, networked PC’s, ee 
Networking 2.5 Megabit token passing. single PC with terminals, of 


255 PC’s and/or AT’s per network. networked PC’s with terminals. 
10,000 tasks per network. No central servers. Full sharing 
Thousands of users per network. of disks, devices and CPU’s. 


RealTime 2,800 task switches/sec (AT). 2 PC-DOS runs as a QNX task. 


Message Fast intertask communication From US $450. 
between tasks on any machine. Runtime e pricing available. For further information or a free demonstration 
$$ 7 diskette, please telephone (613) 591-0931. — 


01 canats South Business Park “175 Terrence Matthews Crescent: Kanata, Ontario, Canada- K2 


28 AT. xt and PS/2, PC-DOS and osi2 are trademarks of international Business Mactines. HP and Vectra: are roorstened trademarks of Hewlett-Packard Company. 
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Listing Two 
(Listing continued, text begins on page 38.) 
28 /* Perform all the filename processing */ 
29 strcpy (module name, strupr(input_file)) ; 
30 strcpy (exe fname, module name) ; 
a strcat (strcpy (map fname, exe fname), “.MAP") ; 
ae 
33 if ((config == FALSE) || (strlen(config fname) == 0)) 
34 streat (strcpy (config fname, exe _fname), " CFG") 
39 else 
36 strupr(config fname) ; 
37 
38 if ((hex_ name == FALSE) || (strlen(abs _fname) == 0)) 
39 strcat (strepy (abs _ fname, exe fname), “.HEX") 
40 else 
41 strupr(abs fname) ; 
42 
43 strcat (strcpy(print_fname, exe fname), “.LOC") ; 
44 strcat (exe fname, " . EXE") 
45 
46 /* Create the temporary file used for segment fixups and 
* 
47 Strcpy (tmp fname, “LOCATE.S$$$") ; een eG 
48 tmp_file = open(tmp fname, F_CREATE, S _IWRITE) ; 
49 Lf (tmp_ file == -1) 
50 sprintf (errmsg, create str, tmp fname) ; 
$1 perror(errmsg) ; 
Sz exit (1). >; 
53 } 
54 
ee /* Create the absolute output file */ 
56 abs file = open(abs_ fname, F _CREATE, S_IWRITE) ; 
57 if (abs file == -1) ~ 
28 sprintf (errmsg, create_str, abs fname) ; 
59 perror(errmsg) ; 
60 exit {1} + 
61 } 
62 
63 /* Open the .EXE file */ 
64 exe file = open(exe fname, F OPEN) ; 
65 if (exe file == -1) iv 
66 sprintf (errmsg, open_str, exe fname) ; 
67 perror(errmsg) ; 
68 exit(1) 3; 
69 } 
70 
Fi /* Create the locate map output file */ 
72 print file = fopen(print _fname, “wt") ; 
is if (print file == NULL) { 
74 sprintf(errmsg, open str, print fname) ; 
75 perror(errmsg) ; ~ = 
76 exit (i}-*> 
77 } 
78 
79 /* Open the configuration file for reading */ 
80 config file = fopen (config fname, “rt") ; 
81 i (config_ file == NULL) ‘{ 
82 sprintf (errmsg, open_str, config fname) ; 
83 perror(errmsg) ; 
84 exit (1) ; 
85 } 
86 
87 /* Open the linker map file for reading */ 
88 map_file = fopen(map fname, “rt") ; 
89 if (map_ file == NULL) { 
90 sprintf (errmsg, open_str, map fname) ; 
91 perror(errmsg) ; - 
92 exit(1) ; 
93 } 
94 
95 return ; 
96} 
97 
98 
99 void close file system() 
100 { "i i: 
101 char errmsg{MAX LINE] ; 
102 char *close str = “Unable to close %s" ; 
103 char *delete str = “Unable to delete %s" ; 
104 
105 F* 
106 This function is responsible for shutting down the file system 
107 and cleaning up the temporary files. All files opened for 
108 reading are closed and all files open for writing are closed 
109 (normal exit) and possibly deleted (control-C abort event). 
110 Lad A 
11 
112 /* Close the link map */ 
113 if (fclose(map file) != 0) { 
114 sprintf (errmsg, close str, map fname) ; 
LIS perror(errmsg) ; 
116 } 
117 
118 /* Close the locate configuration file */ 
LL9 if (fclose(config file) != 0) 
120 sprintf (errmsg, close_str, config fname) ; 
aa: perror(errmsg) ; 
122 } 
i We 
124 /* Close the .EXE file */ 
i25 if (close (exe file) == -1) { 
126 sprintf(errmsg, close str, exe_fname) ; 
ELT perror(errmsg) ; 
128 } 





(continued on next page) 
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TAL CONTROL 
with LMI FORTH™ 





For Programming Professionals: 


an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 


For Development: 
Interactive Forth-83 Interpreter/Compilers 


e 16-bit and 32-bit implementations 

Full screen editor and assembler 

Uses standard operating system files 

400 page manual written in plain English 

Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 


For Applications: Forth-83 Metacompiler 


e Unique table-driven multi-pass Forth compiler 

¢ Compiles compact ROMable or disk-based applications 

e Excellent error handling 

e Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

¢ Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

¢ No license fee or royalty for compiled applications 


For Speed: CForth Application Compiler 


e Translates “high-level” Forth into in-line, optimized 
machine code 
e Can generate ROMable code 


Support Services for registered users: 


e Technical Assistance Hotline 
e Periodic newsletters and low-cost updates 
e Bulletin Board System 


Call or write for detailed product information 
and prices. Consulting and Educational Services 
available by special arrangement. 







| , 

Laboratory Microsystems Incorporated 
Post Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to: (213) 306-7412 


Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Titisee-Neustadt, 7651-1665 
UK: System Science Ltd., London, 01-248 0962 

France: Micro-Sigma S.A.R.L., Paris, (1) 42.65.95.16 

Japan: Southern Pacific Ltd., Yokohama, 045-314-9514 

Australia: Wave-onic Associates, Wilson, W.A., (09) 451-2946 
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TRUE 


MULTITASKING 


With 
MultiDos Plus 
“multitasking for the IBM-PC.’ 


Ideal for developing applications 
in process control, data acquisi- 
tion, communications, and other 
areas. Check these features which 
make MultiDos Plus an unbeat- 
able value. 


e Run up to 32 programs concur- 
rently. 

e Your software continues to run 
under DOS. No need to learn a 
new operating system. 

e Use the compilers you already 
have. Supports software written in 
most languages. 

e Operator commands to load/run 
programs, change priority, check 
program status, abort/suspend / 
resume programs. 

e Programmatic interface via INT 15H 
for the following. 


* Intertask message communica- 

tion. Send/receive/check mes- 

sage present on 64 message 

queues. 

Task control by means of 

semaphores. Get/release/check 

semaphores. 

* Change priority-256 priority 

levels. 

Suspend task for specified 

interval. 

Spawn and terminate external 

and internal tasks. 

Disable/enable multitasking. 

and more! 

e Independent foreground /back- 
ground displays. 

e Access to DOS while applications 

are running. 


Hardware/Software Requirements 
IBM PC/XT/AT or true clone. Enough 
memory to hold MultiDos Pius (48 
KB) and all your application programs. 
Also may need 4 or 16 KB memory 
for ‘hidden screens" for each active 
task. MS-DOS (or PC-DOS) 2.0 or 
later operating system. 


only: $24.95 OR 
$99.95 


with source code 












































Outside USA add $5.00 shipping and handling. 
Visa and Mastercard orders only call 
toll-free: 1-800-872-4566, ext. 350., or 
send check or money order to: 


NANOSOFT 


13 Westfield Rd, Natick, MA 01760 
MA orders add 5% sales tax. 
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Listing Two (Listing continued, text begins on page 38.) 


129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
251 
LS2 
Loo 
154 
155 
156 
$37 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 


Listing Three 





} 





DOS LOCATE UTILITY 





/* Close the locate map */ 

5 a (fclose(print_file) != 0) { 
sprintf (errmsg, close_str, print_fname) ; 
perror(errmsg) ; 


/* Close the absolute or hex object module */ 
Lf (close (abs file) == -1) 
sprintf(errmsg, close _str, abs fname) ; 
perror(errmsg) ; 


if (user_abort == TRUE) { 
/* Delete the locate map */ 
if (remove (print fname) == -1) { 
sprintf(errmsg,. delete str, print _fname) ; 
perror(errmsg) ; 


/* Delete the object file */ 

if (remove(abs_ fname) == -1) { 
sprintf (errmsg, delete str, abs fname) ; 
perror(errmsg) ; 


} 


/* Close and then delete the temporary file */ 
if (close (tmp file) == -1) { 
sprintf (errmsg, close_str, tmp_fname) ; 
perror(errmsg) ; 


} 


if (remove(tmp fname) == -1) { 
sprintf(errmsg, delete str, tmp fname) ; 
perror(errmsg) ; 


} 


return ; 


End Listing Two 





LOADEXE.C 

1 #include <stdio.h> 

2 #include <io.h> 

3 #include <stdlib.h> 

4 #include <string.h> 

9 #include <malloc.h> 

6 #include <dos.h> 

7 

8 #include “loc.h" 

9 #include “externs.h" 
10 
a2 
12 char *warn_str = “Warning: Unable to locate virtual segment %04X\n" ; 
a3 

14 char *load exe file() 
Lo sf 

16 Char -buf(i28] ; 

17 rit count, 13 

18 long seek_pos ; 

19 unsigned int module size, pseg, *reloc_ ptr, segment ; 
20 unsigned int read size, mem_size ; 

a1 char *load addr, *entry, *str ; 

22 

23 EXE HEADER header; 

24 SEG DESCRIPTOR *p ; 

25 

26 /* 

27 This function reads in the .EXE file and performs the fixup of any 
28 segment references. 

29 “7 

30 

31, /* Read in the .EXE file header information */ 

32 count = read(exe file, (char *) &header, sizeof(header)) ; 
33 if (count != sizeof (header) ) { 

34 perror(.. FILE .) 3 

35 exit (1) 73 or 

36 } 

aa 

38 /* Exit if not a valid .EXE flle */ 

39 if (header.signature != 0x5A4D) { 

40 perror("“Not an .EXE file") ; 

Al exit(1) ; 

42 } 

43 

44 /* Seek to the start of the load module */ 

45 if (lseek (exe file, (long) header.header size * 16, SEEK SET) == -1L) { 
46 perror( FILE ) ; a 
47 exit (1). 3 i 

48 } 

49 

50 /* Compute how much memory can be allocated for reads a 
51 mem_size = 32 * 1024 ; 

52 if (mem_size > memavl()) 

3 mem_size = memavl() ; 

4 

3S /* Allocate the memory */ 

56 if ((load_addr = malloc(mem_size)) == NULL) { 


(continued on page 76) | 
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UNLEASH YOUR 80386! 





Your 80386-based PC runs at least 
twice as fast as your old AT. This is good, 
but not great. The products described 
below will unleash the true potential of 
your 80386, giving you 4 to 16 times the 
power of your old AT. These new Micro- 
Way products include a family of 80386 
native code compilers and the mW 1167 
numeric coprocessor. | 
Examples of the increases in capacity 
and performance include: 
e Programs compiled with MicroWay 


NDP Fortran-386 execute 2 to 8 times 
faster than those compiled with existing 
16-bit Fortrans. NDP Fortran-386 can 
also address up to 4 gigabytes of 
memory instead of the standard 640 
kbytes. MicroWay’s NDP compilers 
and the programs they generate run on 
MS-DOS or Unix V. 

e NDP Fortran-386 generates code for 
the 80287, 80387 or MicroWay’s 
mW1167. The mW1167 has a floating 
point throughput exceeding 2.5 mega- 


mW1167 Numeric 
_ Coprocessor 





MicroWay 80386 Compilers 


NDP Fortran-386 and NDP C-386 are globally 
optimizing 80386 native code compilers that 
support a number of Numeric Data Processors, 
including the 80287, 80387 and mW1 167. They 
generate mainframe quality optimized code and 
are syntactically and operationally compatible to 
the Berkeley 4.2 Unix f77 and PCC compilers. 
MS-DOS specific extensions have been added 
where necessary to make it easy to port pro- 
grams written with Microsoft C or Fortran and 
R/M Fortran. 

The compilers are presently available in two 
formats: Microport Unix 5.3 or MS-DOS as ex- 
tended by the Phar Lap Tools. MicroWay will port 
them to other 80386 operating systems such as 
OS/2 as the need arises and as 80386 versions 
become available. 

The key to addressing more than 640 kbytes 
is the use of 32-bit integers to address arrays. 
NDP Fortran-386 generates 32-bit code which 
executes 3 to 8 times faster than the current 
generation of 16-bit compilers. There are three 
elements each of which contributes a factor of 2 
to this speed increase: very efficient use of 
80386 registers to store 32-bit entities, the use of 
inline 32-bit arithmetic instead of library calls, 
and a doubling in the effective utilization of the 
system data bus. 

An example of the benefit of excellent code is a 
32-bit matrix multiply. In this benchmark an NDP 
Fortran-386 program is run against the same 
program compiled with a 16-bit Fortran. Both 
programs were run on the same 80386 system. 
However, the 32-bit code ran 7.5 times faster 
than the 16-bit code, and 58.5 times faster than 
the 16-bit code executing on an IBM PC. 

NDP FORTRAN-386™ ............0: $595 
NE oo ehciat mica SA armies $595 


Micro 
Way 





Tandy 4000 


MicroWay Numerics 


The mW1167”™ is a MicroWay designed high 
speed numeric coprocessor that works with the 
80386. It plugs into a 121 pin “Weitek” socket 
that is actually a super set of the 80387. This soc- 
ket is available on a number of motherboards 
and accelerators including the AT&T 6386, 
Tandy 4000 and MicroWay Number Smasher 
386 (Jan. ’88). It combines the 64-bit Weitek 
1163/64 floating point multiplier/adder with a 
Weitek/Intel designed “glue chip”. The 
mW1167™ runs at 3.6 MegaWhetstones (com- 
piled with NDP Fortran-386) which is a factor of 
16 faster than an AT and 3 to 5 times faster than 
nen et eee Te ed $1495 


Monoputer™ - The INMOS T800-20 Trans- 
puter is a 32-bit computer on a chip that features 
a built-in floating point coprocessor. The T800 
can be used to build arbitrarily large parallel pro- 
cessing machines. The Monoputer comes with 
either the 20 MHz T800 or the T414 (a T800 
without the NDP) and includes 2 megabytes of 
processor memory. Four or more Transputers 
can be easily linked together to form a Quad- 
puter. A single T800 is comparable in speed with 
an mW1167-equipped 80386. The compilers to 
drive one or more Monoputers include Occam, 
C, Fortran, Pascal and Prolog. 


Monoputer T414-20' .............-. $1495 
Monoputer T800-20' .............. $1995 
Biputer™ T800/T4142.............. $4995 
Quadputer™ T414-202 .............. $6995 
‘Includes Occam 2Includes TDS 

80287 ACCELERATORS 

ee AE ng 5 vere owen ke ieee enn $450 
DP A a fn se ba ccs en abana $550 
287TurboPlus-12 ........00eeeeeeees $629 


flops, which is 4 to 5 times the through- 
put of an 80387 and is comparable to 
the speed achieved by the VAX 8600. 
Equally important, whichever Micro- 
Way product you choose, you can be 
assured of the same excellent pre- and 
post-sales support that has made Micro- 
Way the world leader in PC numerics 
and high performance PC upgrades. 
For more information, please call the 
Technical Support Department at 
617-746-7341 


MicroWay* 
80386 Support 


80386 Multi-User Solutions 


AT8™ - This intelligent serial controlleris designed 
to handle 8 users (16 with two boards) in a Xenix 
or Unix environment with as little as 3% degrada- 
tion in speed. Ithas been tested and approved by 
Compag, Intel, NCR, Zenith, and the Department 
of Defense for use in high performance 80286 
and 80386 Xenix or Unix based multi-user 
SPINS sn Oa ats Uh Os dete nye tenons $1299 


MicroPort Unix 5.3 is a port of the new Unix 5.3 
to the 80386. MicroWay NDP-386 compilers 
currently run on this version of UNIX. 

MicroPort Unix 5.3 ............: from $399 


PC-MOS-386”™ is an 80386 operating environ 
ment that turns an AT with an AT8 into an MS- 
DOS multi-user system. The system makes it 
possible to run applications such as Lotus 1-2-3 
on terminals. The operating system also has a 
Phar Lap compatibility mode that runs programs 
developed with the Phar Lap versions of Micro- 
Way's COMBIES 2... cccecs weve from $199 


Phar Lap™ created the first tools that make it 
possible to develop 80386 applications which 
run under MS-DOS yet take advantage of the full 
power of the 80386. These include an 80386 
monitor/loader that runs the 80386 in protected 
linear address mode, an assembler, linker and 
debugger. These tools are required for the MS- 
DOS version of the MicroWay NDP Compilers. 


a ee ge $399 
MATH COPROCESSORS 

SR VU ins oe is cae cewenenee $495 
pe ae sh $349 
COPE HS So aes itt ween ans $259 
SORGT HO G WN 25 scence 055 oe aed ce now's $179 
COT NE, ook ccecinwssccvaen ees $154 
BOG? SOS svenceeectes ee etrretiness $99 


The World Leader in PC Numerics 


P.O. Box 79, Kingston, Mass. 02364 USA (617) 746-7341 
32 High St., Kingston-Upon-Thames, U.K., 01-541-5466 
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Announcing... 








Programmer's 
Power Pack 






ow you can reach 100,000 






programmers, consultants, 






and systems integrators with your 






postcard ad. The Programmer's Power 






Pack card deck targets this elite audi- 






ence, including subscribers to Dr 






Dobb's Journal of Software Tools, for 






only a little over a penny a contact! 






The Programmer's Power Pack 
Card Deck 


Next Mailing Date: December 28, 1987 
Reservation Closing: November 23, 1987 








For advertising rates, card specifications, and 





to reserve your space, contact: 







Ann Roskey 
Northeast Account Manager 
415-366-3600 


Stephen Nestel 
National Account Manager 
415-521-4133 
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Listing Three (Listing continued, text begins on page 38.) 





57 perror( FILE.) ; 
58 exit(l) ; 
53 } 
60 
61 while (1) { 
62 /* Read in a segment of the load module */ 
63 read_ size = read(exe_file, load addr, mem_size) ; 
64 if (read size == 0) { 
65 free(load_addr) ; 
66 break ; 
67 } 
68 
69 /* Write it back out to the temporary file */ 
70 count = write(tmp file, load_addr, read_size) ; 
71 if (count != read_size) { 
72 perror(  FILE_) ; 
73 exit (1) ; 
74 } 
75 } 
76 
77 /* Find the relocation list */ 
78 if (lseek(exe file, (long) header.first_reloc_item, SEEK_SET) == ~-1L) { 
79 perror( FILE) ; 
80 exit(1l) ; 
81 } 
82 
83 /* Perform the segment fixups on the temporary file */ 
84 for (i = 0; 1 < header.reloc items; i++) 
85 /* Read in a relocation item */ 
86 count = read(exe file, (char *) &reloc ptr, sizeof(reloc ptr)) ; 
87 if (count != sizeof(reloc ptr)) { 
88 perror(. FILE}. 7 
89 exit {i} .+ 
90 } 
91 
92 /* Compute the position of the fixup in the temporary file */ 
93 seek_pos = (long) FP_SEG(reloc ptr) ; 
94 seek pos = seek pos * 16 + FP_OFF(reloc ptr) ; 
95 if (Iseek(tmp_ffle, seek_pos, SEEK SET) == -1L) { 
96 perror( FILE_) ; 
97 BxLc(l) ¢ 
98 
99 
100 /* Read in the virtual segment from the fixup */ 
101 count = read(tmp file, (char *) &segment, sizeof(segment)) ; 
102 if (count != sizeof (segment) ) { 
103 perror( FILE.) ; 
104 exit (1)°: ee 
105 } 
106 
107 /* Perform the location */ 
108 if (locate virtual segment (segment, &pseg) == ERROR) 
109 fprintf(stderr, warn_str, segment) ; 
110 
111 segment = pseg ; 
Liz 
ii3 /* Re-seek back to the fixup */ 
114 if (lseek(tmp_file, seek _pos, SEEK SET) == -1L) { 
25 Perron): -FrLe..)- +} 
116 exit(1) ; aa 
127 } 
118 
119 /* Write the physical segment number to the fixup */ 
120 count = write(tmp file, (char *) &segment, sizeof(segment)) ; 
121 if (count != sizeof (segment) ) { 
122 perror( FILE) ; 
23 exit (1) =: 
124 } 
125 } 
126 
127 /* Process the program entry point */ 
128 if (locate virtual segment (header.code seg disp, &pseg) == ERROR) 
129 fprintf(stderr, “Warning: Unable to locate entry point\n") ; 
130 
131 FP_SEG(entry) = pseg ; 
132 FP_OFF (entry) = header.initial pc ; 
133 
134 return entry ; 
135. } 
End Listing Three 
& ® 
Listing Four 
LOCATE.C 
1 #include <stdio.h> 
2 #include <stdlib.h> 
3 #include <string.h> 
4 #include <signal.h> 
5 
6 #include “loc.h" 
7 #include “globals.h" 
8 #include “externs.h" 
9 
LO tf % 
11 LOCATE *** MS-DOS ROM Utility 
+ oe Copyright (C) 1987 Rick Naro. All rights reserved. 
14 
Ee Lat mMain(arge, argv) 





16.4 ? 1 
nt arge (continued on page 78) 
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Advanced Screen Manager 


Building an interactive application 
in C? PANEL Plus provides the 
features you need for professional 
program development: 


dX 0) 1 Of Oe BAY 


The PANEL Pius interactive screen 
design tools are the fastest way to 
get your application screens set out 
and tested. Just type prompts on 
the screen, mark out entry fields, 
define display and entry attributes, 
help boxes, borders, pop-up areas. 
Fields can be edited, moved and 
resized, and validation details 
entered — with the screen displayed 
so that you can see the effect of 
your changes. 


Then PANEL Plus saves your work 
to disk, from where you can either 
load the design directly into your 
application program, or for better 
control, automatically generate C 
data structures, field areas, and 
header files which are compiled 
and linked into your program. 


QUALITY 


PANEL Plus screens can include 
all the features demanded by 
today’s applications. Several 
different menu types are provided, 
including highlighted bars with 
help lines. Easy-to-use library 
functions support pop-up fields, 
horizontal and vertical scrolling in 
a field, and validation exits for 
supplied or custom data checking 
functions. Text functions can also 
be carried out in graphics mode 
using a supported graphics 
function library. 








| ete) Om 0) Oe She) 0 


Although the library contains over 
150 functions, it is logically 
organised so that most programs 
will only need to use a small subset. 
Users of Roundhill’s PANEL 
package will find that the old calls 
have been emulated (and all 
screens are compatible). New, 
expanded documentation is 
provided with examples of all the 
main function calls. PANEL Plus 
includes full library source, with 
variant files for all supported 
systems, and no royalties are 
payable for the use of PANEL Plus 
libraries when linked into user 
applications. 


PORTABILITY 


PANEL Plus is designed to allow 
your programs to be ported to just 
about any environment where you 
can find a C compiler. Every 
version of PANEL Pius includes 
source modules for interfacing to 
all of the following environments: 
MS-DOS/PC-DOS (portable and 
memory-mapped), OS/2 protected 
mode, Amiga Intuition, Unix (with 
and without termcap or termio), 
Xenix, DOS-J (including Asian 


Roundhill Computer Systems Limited 

































New! 


Roundhill announces two screen 
tools for use with the exciting new 
C compilers from Borland and 
Microsoft: 


PANEL/TC — $129.00 
For use with Borland’s Turbo C 


PANEL/QC —- $129.00 
For use with Microsoft’s Quick C 


Each package is configured for 
use on an IBM PC or compatible 
system, and screens can be 
designed and built into your 
programs while running in the 
special development environment 
provided with the compiler. 


All the PANEL Plus library 
functions are supported, and 
source code for every validation 
function is provided so that you 
can customise the entry checking 
to suit your application. When 
you need to move your programs 
to other environments, or need 
the full library source for other 
reasons, upgrades to PANEL Plus 
are available. 


PANEL/QC can be run in any of 
the graphics modes supported by 
Quick C, and also interfaces to 

Microsoft C V5. 






16-bit character editing), and 
VAX/VMS. Graphics libraries 
supported include MetaWindow, 
HALO, Essential Graphics, and 
Microsoft C V5. The Microsoft 
mouse can be used in PC versions. 


PANEL Plus for MS-DOS, with full 
library source, is priced at $495.00. 
Versions are available for the 
Manx Aztec, Borland, Lattice, 
MetaWare, Microsoft, and Wizard 
C compilers. Please call for prices 
of PANEL Plus for Xenix and Unix 
systems, and for VAX/VMS. 
Existing registered users of 
PANEL will receive a credit 
against the PANEL Pius license fee. 


(201) 569 2265 


PO Box 8107, Englewood NJ 07631 


Roundhill Computer Systems Limited 


(0672) 54675 


PO Box 14 Marlborough SN8 1LR England 


Telex (UK): 
Fax (UK): 


444453 AWARE G 
(0672) 54436 
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Listing Four (Listing continued, text begins on page 38.) 


17 char *argv[]; 
{ 











Lo char *s, *input_ file ; 

20 unsigned char *entry point ; 

21 int 1 F 

22 

pe f* 

24 This is the root module of the locate utility and it controls the 
29 sequencing of the entire location process. 

26 "7 

27 

28 /* Install a Control-C interrupt handler */ 

29 if (signal (SIGINT, break handler) == (int(*)()) -1) { 

30 fprintf(stderr, "Failure to install break handler\n") ; 
S31. abort () ; 

32 } 

33 

34 /* Build a command line string using argv[(0] through argv[arge-1] */ 
35 command_line{0}] = '\O' ; 

36 for (i = 0; 1 < argc; i++) { 

37 strceat (command_line, argv[i]) ; 

38 strcat (command line, " ") ; 

39 } 

40 

41 /* Test if the user needs help in running this utility */ 
42 if (arge == 1) : 

rhe help = TRUE ; 

sf config fname[0) = abs_fname[0] = print_fname[0] = '\O' ; 

47 /* Process each argument in sequence until all are processed */ 
48 while (--arge > 0 && (*++argv) [0] == '=') 

49 for (s = argv[0] + 1; *s I= '\Q'; s++) { 

50 switch (*s) { 

51 case 'b'; 

52 boot _rec = TRUE ; 

53 break ; 

54 

oS case ‘c's; 

56 config = TRUE ; 

37 1f (*++s) 

58 strcepy (config fname, s) ; 

59 *g-- = '\O' ; 

60 break ; 

61 

62 case ‘h's 

63 hex name = TRUE ; 

64 if (*++s) 

65 strcpy(abs fname, s) ; 

66 *s-- = '\O' >; 

67 break ; 

68 

69 default: 

70 help = TRUE ; 

ra argc = 0 ; 

72 break ; 

73 } 

74 } 

75 } 

76 input_file = argv[0] ; 

Vi 

78 if (help == TRUE) { 

79 fprintf(stderr, "\nUsage is\n\n") ; 

80 fprintf(stderr, "\tlocate switches exefile\n\n") ; 

81 fprintf(stderr, “The valid switches are:\n\n") 3: 

82 fprintf(stderr, "\t%-14s create bootstrap record\n", “=b") ; 
83 fprintf(stderr, "\t%-14s configuration filename\n", "-c[name]") ; 
84 fprintf(stderr, "\t%-14s hex filename\n", “-h{name}") ; 
85 exit(1l) ; 

86 } 

87 

88 fprintf(stderr, "MS-DOS Locate Utility - Version 1.0\n") ; 
89 fprintf(stderr, "Copyright (C) 1987 Rick Naro. Sys 

90 fprintf(stderr, “All rights reserved\n\n") ; 

91 

92 /* Open and create the files used in the location process */ 
93 open_file_system(input_file) ; 

94 

95 /* Install the routine to shutdown the utility gracefully in the 
96 event of an error. * 

$7 onexit (close file system) ; 

98 

99 /* Build the segment descriptor list using the link map */ 
100 seg_ list = build seg list(); 
101 

102 /* Process the locate configuration file */ 

103 if (process locate file(seg list) == ERROR) { 

104 fprintf(stderr, “Error(s) reading the locate map\n") ; 
105 exit (1) =: 

106 } 

107 

108 /* Convert any public symbols to their new physical addresses */ 
109 read_symbol table(seg list) ; 

110 

iit /* Read the load module and perform the segment fixups */ 
L12 entry_point = load exe file() ; 

113 

114 /* Add a bootstrap record if enabled on the command line */ 
115 if (boot_rec == TRUE) 

116 create _bootstrap(seg list, entry point) ; 

Li? 

118 /* Output the load module in the specified format */ 

ise output_hex_OMF (abs file, seg list, entry point) ; 

127 /* Make the locate map containing the new segment assignments */ 





78 
Dr. Dobb's Journal, December 1987 











122 print_statistics(map_ fname, print_fname, command_line, exe_fname, \ 
ize abs fname, config fname, entry point) ; 

124 

LZ exit (0})-> 

126 } 

127 

128 

129 void break_handler() 

130 { 

131 /* 

1a2 The break handler is provided to catch Ctrl-C interrupts from the 
133 user and perform a shutdown of the program in a graceful manner. 
134 “7 

135 

136 /* Set the user abort flag for the file system close routine */ 

137 user abort = TRUE ; 

138 exit(1) ; 


139 = 
140 End Listing Four 


e e & 
Listing Five 
MISC.C 
1 #include <stdio.h> 
#include <string.h> 
#include <malloc.h> 
#include <dos.h> 


2 
3 
4 
5 #include <errno.h> 
6 
7 
8 


#include “loc.h" 
#include “externs.h" 


10 extern int errno ; 


12 ehar *get_mem (size) 
13. unsigned long size ; 
{ 


iS union REGS regs ; 

16 char *p ; 

17 

18 F* 

19 This function is a substitute for allocation of huge arrays. It 
20 uses DOS system calls to directly allocate up to 64K for a memory 
21 block. 

Zz */ 

aa 


(continued on next page) 











Make your C language 
programs memory resident 
with 

DMS RESIDENT-C | 
Lattice 3.0 Microsoft 4.0 § 


Cogent Prolog 





oO Fast, Compact, COMPILED Prolog 

o IBM PC and Compatibles 

Oo Clocksin & Mellish Standard, Plus 
Windows Strings 
Floating Point Modules 

Oo Window Based Development System 

oO Context Sensitive Help 

oO User Specifiable Error Handling 

O Interface to "C" and Assembler 

o Can Produce .EXE Files - No Royalties 


$200 


VISA - MasterCard - Check 
30 Day Money Back Guarantee 







“hot-key" 






$79.95 rms $149.95 
“any” w/source 








Make your assembler 
programs memory resident 
with 
DMS RESIDENT-ASM 










"hot-key" 





$149.95 
w/source 






Cogent Software, Ltd. 


21 William J. Heights 
Framingham, MA 01701 
(617) 875-6553 





American Software International 
P.O. Box 523 

Windsor, Ct 06095-9998 
(203)688-5054 
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Listing Five (Listing continued, text begins on page 38.) 


24 regs.x.bx = (unsigned int) (size / 16 + 1) ; 
2s regs.h.ah = 0x48 ; 

26 FP _SEG(p) = intdos(éregs, éregs) ; 
27 if (regs.x.cflag) { 

28 errno = ENOMEM ; 

29 p = NULL ; 

30 } 

31 else 

32 FP OFF(p) = 0 ; 

33 ‘i. 

34 return Pp; 

a 

36 

37 


38 void free _mem(p) 
39 char “p - 




































40 { 
41 union REGS regs ; 
42 struct SREGS sregs ; 
43 
44 /* 
45 This function is the complement of get_mem() in that it releases 
46 any memory previously acquired with get_mem(). 
47 */ 
dBASE Programmers 48 
49 sregs.es = FP_SEG(p) ; 
‘ 50 regs.h.ah = 0x49 ; 
You need it! = intdosx(éregs, &regs, &sregs) ; 
Ce You can handle it! = return ; 
(7 2dB2c is here now! 55 
56 
57 int assign physical _ segment (class, seg) 
oe ila: So. aneiineds Ane. :sh6-8 
¢ Version 2.0 complete with 60 | : 
j 61 int error = ERROR ; 
Mees and File 62 SEG DESCRIPTOR *p ; 
: 63 
‘ ive | j 64 f* 
Extensive implementation 65 This function assigns the specified class name the physical 
of dBASE Ill+ with over 200 66 segment number. The ee ee eh Sie pea aed 
: i . nts have 
functions and commands in 68 erceae velariee io the first dagacec if the class. 
C source code. 69 */ 
¢ Contains our own File as see date na gees 
j 72 while (p != NULL) { 
Handlers plus interfaces for ik ee ie iets aang i 
Lattice's dBC and Faircom's 74 eee bed. 5 
c-tree i ee p->inited = TRUE ; 
: : 76 error = OK ; 
« Supports screen I/O with 77 } 
ANSI.SYS or fast assembler i re rile 
routines. 80 return error ; 
¢ Support for Microsoft, 2 
attice and Turbo C 83 
i| 84 int get _next_segment (pclass, cclass, seg) 
COIMpllers. 85 char ‘*pclass ; 
¢ Tutor features of trans!ation $6 char *cclasa ; 
combined with familiar - ee int ‘*seg ; 
syntax of the library eases 89 int error = ERROR ; 
the transition to C. 1 SEG DESCRIPTOR AE ser de tlast ; 
¢ One version supports MS- “ a 
DOS, Xenix, il 94 This function returns the next physical vs aie address 
. 95 available for use by CCLASS (current class) after PCLASS 
and Concurrent D 96 (previous class). A typical use is to force the concatenation 
‘e re O U 97 of independent classes. 
98 */ 
99 
b 100 /* Search the class list for the occurrence of the CCLASS */ 
ready? ee RN 
a aces 
103 if (stremp(q->class, cclass) == 0) { 
104 found = TRUE ; 
105 break ; 
106 } 
107 q = q->next ; 
108 } 
@ 109 
Toolkit $ 9 110 if (found == FALSE) 
k 29 111 return ERROR ; /* Error if it can't be found */ 
nsislethasieestinedsiibnadan 112 
113 /* Search for PCLASS and then to the end of PCLASS. */ 
114 while (p != NULL) { 
2+ if rca gl aa pclass) == 0) { 
e ast = p ? ‘ 
Call or Write: 117 while(strcmp(p->class, pclass) == 0) { 
SOFTWARE 118 last =p; 
DAVID |. = = CONNECTION, INC. a Te ieee ea 
MARSH POB 712, Ely, MN 55731 121 
(218) 365-5097 122 /* Return the next available segment and adjust the segment 
er value for an overflow if necessary. */ 
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8U 
Dr. Dobb’s Journal, December 1987 








125 
126 
LZ? 
128 
i239 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
133 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
uk 
FP. 
213 
214 
215 
216 
aut 
218 
219 
220 
221 
222 
223 
224 
225 


int 








*seg = last->pseg + last->len / 16 ; 
if (q->offset < (last->len + last->offset) % 16) 
*seg += 1 ; 


return OK: > 
Pp = p->next ; 
} 


return ERROR ; 


dup class(old class, new_class) 


char *old class ; 
char *new class ; 


{ 


int error = ERROR ; 
SEG DESCRIPTOR *p, *q, *prev, *head ; 


/* 
Copies the contents of the OLD CLASS entry to the newly created 


NEW_CLASS entry. 
“/ 


p = seg list ; 
while (p != NULL) { 
if (stremp(p->class, old class) == 0) { 
prev = head = NULL ; 
while (p != NULL) { 
{f (stremp(p->class, old class) != 0) 
break ; a 


/* Create the new segment descriptor */ 
if ((q = (SEG DESCRIPTOR *) malloc(sizeof (*q))) == NULL) { 
perror( FILE) ; 


exit(1l) ; 


if (prev == NULL) 
head = q ; 

else 
prev->next = q?; 


/* Copy the contents and add the new entry to the list */ 
elie 

strcpy (q->class, new_class) ; 

q->next = NULL ; 


prev =q; 

if (p->next == NULL) 
break ; 

else 
Dp = p->next ; 


} 
while (p->next != NULL) 
p = p->next ; 


p->next = head ; 
return OK ; 

} 

Pp = p->next ; 


return ERROR ; 


int rom_class(rom_class) 
char *rom_class; 


{ 


int error = ERROR ; 
SEG DESCRIPTOR *p ; 


/* 
Sets the romable field for the specified class to TRUE permitting 
the output of the segment in the absolute object file. 

*/ 


p = seg list ; 
while (p != NULL) { 
if (strcemp(p->class, rom_class) == 0) { 
p->romable = TRUE ; 
error = OK ; 
} 
Pp = p->next ; 
} 


return error ; 


int locate virtual segment (vseg, pseg) 
unsigned int vseg; 
unsigned int *pseg; 


SEG DESCRIPTOR *p ; 


/* 
Finds an initialized segment with the specified virtual segment 
number and returns the corresponding physical segment number. 
wf 


p = seg list ; 
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3 D GRAPHICS ANIMATION 


Now you can have a 3 D animating 
graphics system for your EGA or CGA 
equipped PC or PC compatible. 

(DOS 2.1 or higher.) 


1 Includes all source code (C and ASM) 


2 Hidden surface removal, translation, 
scaling and rotation 


3 Scripting for viewpoint and object 
movements 


4 Slideshow or animated playback of 
display frames 


5 Software interface to single frame 
camera 


6 ‘Fly through’ of scenes with moving 
objects 


7 Variable order spline curve generation 
for object and view point path 
generation 


8 Object description includes MACRO 
Capability 


9 Source code includes direct to hard- 
ware assembly routines for high 
speed display 


10 Control viewpoint path, acceleration, 
and velocity 


11 Control object path, velocity, and 
rotation 


GenView allows you to specify a viewpoint 
path with a small set of ‘turning points.” 
It will then generate a smoothed series of 
frame locations along the path according 
to the velocity and acceleration 
parameters you specify. View direction 
may be backwards, forwards, or user 
specified. Object movement is controlled 
through a similar process with the addi- 
tion of rotation (about any or all axes). 


CGA Animation Sequence Demo 
$7.00 

EGA Animation Sequence Demo 
$9.00 (2 diskettes) 

CGA Flythrough Sequence Demo 
$9.00 (Requires hard disk) 


GenView System $99.00 


The GenView System includes executable 
code, source, MAKE files, object descrip- 
tion library, and manual (more than 40 
pages) on diskette. 


No Purchase Orders. Massachusetts 
residents add 5% sales tax. 
Outside USA add $15.00. 
VISA and MASTERCARD accepted. 
Call 617-528-4280 to order or send check 
or money order to: 
GenSoft Systems 
Dept. 9D 
PO. Box 1 
Foxborough, MA 02035 
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Listing Five (Listing continued, text begins on page 38.) 


as 





End Listing Five 


226 while (p != NULL) 
227 Af eo inived == TRUE && p->vseg == vseg && p->len != 0) { 
228 *pseg = p->pseg ; 
229 return OK ; 
230 } 
231 Pp = p->next ; 
232 
233 return ERROR ; 
234 =} 
e e e 
Listing Six 
OUTHEX.C 
1 #include <stdio.h> 
2 #include <stdlib.h> 
3 #include <io.h> 
4 #include <string.h> 
5 #include <malloc.h> 
6 #include <dos.h> 
~ 
8 #include “loc.h" 
9 #include “externs.h" 
10 
pS} 
12 void output hex_OMF (hex_file, seg list, entry point) 
i3. int — hex tiie + 
14 SEG DESCRIPTOR *seg list ; 
15 unsigned char *entry point ; 
16 
Lf unsigned int offset, i, count ; 
18 unsigned char *seg start, *text ; 
19 
20 SEG DESCRIPTOR *p ; 
cat 
22 fF 
23 This function controls the sequencing of the Intel extended hex 
24 output using the Intel hex output routines. 
25 *y 
26 
27 /* Run through the segment list and output all ROMable segments */ 
28 p-= seg iist ; 
29 while (p != NULL) { 
30 if (p->romable == TRUE) { 
31 
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-C Programmers: Combine C and COMMON LISP 


Simple. 


Add LISP features to your software without mak- 
ing it a full time job. The TransLISP PLUS tutorial, 
on-line help, and 30 sample programs with 
commented source make it easy. 


Practical. 


Start by modifying the LISP sample programs 
and including them in a system you wrote in C. 
Yes, in C! TransLISP PLUS includes a C Language 
Interface that lets you integrate your Microsoft C 
code and libraries with all or portions of our LISP 
interpreter. 

Use TransLISP PLUS to add natural or command 
language features to replace menus... or to flexibly 
manage related but disparate information. Code 
from C libraries provided by other vendors can be 
integrated into your program to perform tasks not 
normally part of LISP. 


| The 


)) Coder’s 


Source ™ 541-D Main St., Suite 412, So. Weymouth, MA 02190 


i) increase the Po wer of Your Software 


7TransLISP PLUS. 


Thorough. 


TransLISP PLUS took over 400 primitives from 
the most widely used and respected LISP standard, 
COMMON LISP, and made it available on IBM 
PCs, XTs, ATs, and virtually every other MSDOS 
machine. So now you can work with anything from 
a $700 PC to a $7000 PC. 

The utilities toolbox is included at no charge with 
a built-in editor, pretty printer, cross reference, 
and additional debugging tools. 

An optional Runtime encrypts your source code 
so that you can distribute your applications safely. 
You pay no royalties. 

Requires MSDOS 2.0+, 320K RAM, and a 360K floppy. 


MONEYBACK GUARANTEE 


Try TransLISP PLUS ($195) for 30 days — if not 
satisfied get a full product refund. The Optional 
Runtime is available for $150. Or start by learning 
LISP with TransLISP ($95) then upgrade to PLUS 
for $158. 


Call (800) 255-4659 
In MA (617) 331-0800 
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FORTH DEVELOPMENT ENVIRONMENT 















Take advantage of Bryte’s tools to make your job easier: 


@ Bryte’s development environment uses BRYTE-FORTH 
on the actual production hardware during product 
development. No emulators, no changes, no surprises. 






Optional PC-based cross-development tools use DOS 
files as microcontroller mass storage. These files 
can be used to generate compact EPROM images, de- 
tailed listings, and cross-references. 











Why not start developing the Bryte way today? 





BRYTE-FORTH 8231 EPROM 100.00 


(includes 138 page User’s Manual) 
Utility disk(s) 65.00* 
Cross-compiler/Cross-assembler 235 .G0* 
8631 unlimitted quan. license 1000.00* 








* Includes complete source code 


bryte computers, Inc. 


P.O. Box 46 
Augusta, ME 04330-0046 


207/547-3218 
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32 /* Allocate enough memory to hold the segment (up to 64K) */ 





33 if ((text = get_mem( (unsigned long) p->len)) == NULL) { 
34 perror( FILE ) ; 
35 exit(1) 73 — 
36 } 
37 
38 /* Locate the position of the segment in the load module file */ 
39 if (lseek (tmp file, p->position, SEEK_SET) == -1L) 
40 perror( FILE) ; ~ 
41 exit(1l) ;? i 
42 } 
43 
44 /* Read in the segment and pad with zero if necessary */ 
45 count = read(tmp file, text, p->len) ; 
46 if (count != p->Ien) { 
47 if (count == -1) { 
48 perror( FILE ) 3 
49 exit (1); o 
50 } 
Si else 
4. memset (text + count, ‘'\0', p->len - count) ; 
} 
54 
Ja /* Write the segment number out in an address record */ 
. write ADDR_record(hex file, p->pseg) ; 
5 
58 /* Output the segment as a series of 16 byte data records */ 
59 offset = p->offset ; 
60 seg start = text ; 
61 for (4 = 0; i < p=->len / 16; i++) 
62 write DATA_record(hex_file, offset, seg _ start, 16) ; 
63 offset += 16 ; 
64 seg start += 16 ; 
65 } 
66 
67 /* Handle any remaining data */ 
68 if ((p->len % 16) != 0) 
= write DATA_record(hex_file, offset, seg start, p->len % 16) ; 
7 free_mem(text) ; 
72 } 
73 p = p->next ; 
74 } 
fe 
76 /* Write the START and EOF records */ 
77 write START record(hex file, entry point) ; 
78 write EOF _record(hex file) ; 
79 
sa ta al (continued on next page) 


Create 68K Embedded 
Systems On ATs 


Oregon Software Brings VAX and VME 
Pascal-2° Cross-Development Tools 
To MS-DOS Workstations 








-Get All Your Tools In One Package 


Compiler 


™ 68000, 68020, and 68881 instruction sets 
= ROMable code 


Assembler-Linker 
Concurrent Program Support 
Stand-Alone Library 
Source Management 


OREGON G SOFTWARE 


800-367-2202 


6915 SW Macadam Avenue, Portland, Oregon 97219 U.S.A. 
503-245-2202 FAX 503-245-8449 TWX 910-464-4779 
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ICs PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 
QUANTITY ONE PRICES SHOWN for OCT. 18, 1987 
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Listing Six (Listing continued, text begins on page 38.) 








OUTSIDE OKLAHOMA: .NO SALES TAX 
DYNAMIC RAM 











© . 
Mem Mbit § 1048kx1 100ns $29.50 yj 
Seem IMbit 256Kx4 120ns 32.00 82 
ae 51258 *256Kx1 100ns 6.95 83 
s yy 4464 64Kx4 150 ns 3.60 Rey 84 void write ADDR_record(file, usba) 
Mee 41256 3 389256Kx1 80ns 5.95 9° 85 int file; 
a3 41256 256kx1 100ns 5.15 aa ee int usba ; 
as 41256 256Kx1 120 ns 3.95 te 88 unsigned char buf[16], *p ; 
pas 41256 = 256Kkx1 150 ns 3.50 Ba) 89 unsigned char len field = 2 ; 
pc 41264 ee 5.25 32 eo af 
Oo s 
ama 2701000 128Kxs 150 ns $37.95 =f 92 This function writes an Intel extended hex yee pecoen to “aa 
= 8 270512 64Kx8 200 ns 15.50 x8 = Bare wadvenn} Inputs are the file handle and the US (segmen 
Siem 27256 32Kx8 250 ns 5.75 Be 95 &/ ; 
eee 27128 16Kx8 250 ns 5.40 Bienes 96 
go STATIC RAM oe 97 p= buf; 
Pm 43256L-12 32kx8 120ns $11.65 KS 98 *pt+ = high byte(usba) ; 
5565PL-15  skxs 150 ns 3.30 Aas ae *pt+ = low_byte(usba) ; 
OPEN 67/2 DAYS, 7:30 am-10 pm: SHIP VIA FED-EX ON SAT. 101 output_hex_record(file, ADDR_RECORD, 0, buf, p —- buf) ; 
— 
103 return ; 
inc.uoedon_| Factory New, Prime Parts uPoo 104} 
5 
fh MICROPROCESSORS UNLIMITED, INC. aie 
: 4 % ri ve., 
6g BEGGS. OK. 74421 (918) 267-4961 107 void write EOF record (file) 
: No minimum order. Please note that prices are subject to 108 int file -; 
change. Shipping & insurance extra, & up to $1 for packing materials. Orders received by 109 { 
9 PM CST can usually be delivered the next morning, via Federal Express Standard 
Air @ $4.00, or guaranteed next day Priority One @ $10.50! 110 {* 
Lith This function writes an Intel extended hex EOF record to the 
CIRCLE 157 ON READER SERVICE CARD fa: VEtpUE Ee 
113 «/ 
114 
115 output _hex_record(file, EOF_RECORD, 0, NULL, 0) ; 
116 return ; 
ul op a | 
118 
119 


120 void write DATA_record(file, offset, text, len) 
izh ane. .. file’: 
122 unsigned int offset ; 


Changing 
: 123. unsigned char *text ; 
124 unsigned int len ; 
our 125 | 
126 








let fe 
 ) 128 This function writes an Intel extended hex Data record to the 
Address BP eencbambins 
£ 130 */ 
131 
132 output _hex_record(file, DATA_RECORD, offset, text, len) ; 
133 
134 return ; 
135°.) 
To change your address, attach 136 
137 
138 d i STAR da(file, t 
your address label from the cover win: fae TT Se 
140 unsigned char *entry ; 
j j 141 { 
of the magazine to this coupon ee cushemod aba. “eck, ey « 
aT i 143 unsigned int count ; 
nd indi 144 
a cate your new address 145 unsigned char len field = 4; 
146 unsigned int addr field = 0 ; 
below. 147 unsigned char rec type = START RECORD ; 
148 
149 ;* 
150 This function writes an Intel extended hex Start record to the 
151 output file. 
152 my 
Name 153 
154 /* Allocate some memory to build the data field in */ 
155 if ((p = buf = (unsigned char *) malloc(32)) == NULL) { 
156 perror(_ FILE) ; 
Address 157 exit(1l) > 
158 } 
159 
Apt # 160 /* Store the start address in the data field (segment first) */ 
; 161 *pt++ = high byte(FP_SEG(entry)) ; 
162 *p++ = low byte(FP_SEG(entry)) ; 
: 163 
City ’ 164 /* And then the offset */ 
165 *pt++ = high byte(FP_OFF(entry)) ; 
166 *pt+ = low_byte(FP_OFF(entry)) ; 
167 
Zip 168 /* Output the record */ 
169 output_hex_record(file, START_RECORD, 0, buf, p - buf) ; 
170 
T72 free (buf) ; 
172 return ; 
; . Pia § 
Mail to: ce 
i73 
176 void output_hex_record(file, type, addr, data, length) 
Dr. Dobb’s Journal, ARE sel tat 


178 unsigned char type 
179 unsigned int addr 











PO Box 27809, 180 unsigned char *data ; 
181 unsigned char length ; 
: 182 { 
184 unsigned int size, count ; 
185 unsigned char chksun, digit -3: (continued on page 86) 











—_—4 
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Motorola MC680x0 
(w/wo 68881) 


Apollo, Sun, SGl.... 


National 
Semiconductor * 


Ataris 


GEM-DOS 





NS320xx 








BSD 4.x BSD 4.x 


ata 2 BSD 4.x D = € 
XENIX ULTRIX VJ AX 


BSD 4.x 


80(,1,2,3)86 
80(,2,3)87 
Weitek 1167 


PC AT, PS/2 
Compagq, 
Compatibles 


i.e 
PC/MS-DOS 
OS/2 
FlexOS 


PC-MOS IBM Resident, IBM | 
DOS|Extender E mM b ed qd e d 
OS/286, OS/386 RT PC ; 3 
X-AM (VM/RUN) and Cross 370 
We cut our teeth on UNIX, but have become famous on MS-DOS, which we enhanced with our UNIX-like DOS 
Helper ™ utilities: find (including tar), fgrep, cat, Is, my, tail, unig, and wc; and our superior optimizing compilers: 


Professional Pascal ™ and High C ™ on the PC are now well-respected by organizations such as Ansa, Ashton-Tate, 
AutoDesk, Boeing (BCS), Daisy Systems Corp., Deloitte Haskins & Sells, Digital Research, GE, IBM, Lifetree, 
Migent, Multimate, NYU, Silvar-Lisco, Sky Computers, Symantec, Xerox/Ventura, ...and Computer Language 
magazine; Dr. Dobbs’ Journal; PC Tech Journal; PC Magazine; and the Journal of Pascal, Ada, and Modula-2. 


We supplied the first compilers generating 32-bit protected-mode code for the 80386 under MS-DOS (since 11/ 
86). And our newly upgraded MS-DOS real-mode compilers were used by Symantec for their Q&A™ product to 
exploit the power of the 80386 real-mode instruction set. (HC v1.4 and PP v2.7 released May 1987.) 


Our C Validation Suite will blow your C compiler out of the sea, while our C compiler tracks the emerging ANSI 
Standard and generates tighter code with far better lint-like feedback help than competing compilers. 


And you’ll love Professional Pascal’s Ada-like packages, true data abstraction, C-like bit manipulation, and much 
more, along with the tight code that is linkable with High C, or other C, object modules (and vice versa). 


Our Translator Writing System (TWS) goes far beyond LEX and YACC, with fully automatic error recovery... 
All uniformly implemented on UNIX, VMS, CMS, MS-DOS, FlexOS, ... 


Professional developers in need of industrial-strength tools contact: 
MetaWare Incorporated 


903 Pacific Avenue, Suite 201 
TM Santa Cruz, CA 95060-4429 
Mats NN LWsre (408) 429-6382 


INCORPORATED Telex: 493-0879 (META UI!) 
PC Tech Journal’s conclusion: 


The Clear Choice for Large Programming Projects. 




















Name Circle what interests you: 

Company Product: PP HC TWS_ Helper (DOS only) 
Address Platform: V.x 4x DOS FlexOS VMS CMS 
City, ST Zip Sun Apollo Atari VAX 370 

Phone ( ) 8086-family 80386 680x0 32032 











© 1987 MetaWare Incorporated. MetaWare, High C, Professional Pascal, and DOS Helper are trademarks of MetaWare Incorporated. Others/ owners: Ada/DoD; 
Apollo/Apollo; Atari/Atari; DEC, VAX,VMS/DEC; FlexOS,GEM-DOS/DRI; IBM,RT PC/IBM; MS-DOS/Microsoft; Q&A/Symantec; Sun/Sun Microsystems; UNIX/AT&T. 


Footnotes: 1. Atari, CMS versions available 10/87. 2. NS320xx version by special order. 3. UNIX not yet available on 370. 
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Listing Six (Listing continued, text begins on page 38.) 








186 
187 [* 

188 This function does all of the work of writing an Intel extended 
189 hex output record. The inputs to this routine are: 

190 file output file handle 

191 type record type 

192 addr address field value 

193 data data field contents 

194 length size of the data field 

195 wy 

196 

197 /* Allocate some memory to build the output record in */ 

198 if ((p = buf = malloc(550)) == NULL) { 

199 perror(  FILE_); 

200 Sxit.(l) #F 

201 } 

202 

203 /* Build the prefix for the data field */ 

204 p += sprintf(p, “:%02X%02X%02X%02x", length, high_byte(addr), \ 
205 low_byte(addr), type) ; 

206 

207 /* Compute the checksum on the prefix */ 

208 chksum = length + high byte (addr) + low byte(addr) + type ; 

209 

210 /* Build the data field byte by byte */ 

man while (length--) 

da We 4 digit = (*data >> 4) & Ox0f ; 

213 *p++ = (digit > 9) ? digit + 0x37 : digit + '0O* ; 

214 digit = *data & Ox0f ; 

215 ptt = (a@igit >:9} ? digit + 0x37 < digit + "0": 

216 chksum += *datat++ ; 

Sit } 

218 

219 /* Compute the complement of the checksum and output */ 

220 chksum = ~chksum + 1 ; 

221 p += sprintf(p, “%02X\r\n",chksum) ; 

222 

223 /* Compute the size of the output record and output */ 

224 size = p - buf ; 

225 count = write(file, buf, size) ; 

226 if (count != size) © 

ned perror( FILE) ; 

228 exit(l) ; 

229 } 

230 es s a 
231 free(buf) ; End Listing Six 
232 return ; 

233 °°} 


Listing Seven 


PRINTLOC.C 
1 #include <stdio.h> 
2 #include <stdlib.h> 
3 #include <string.h> 
4 #include <time.h> 
5 
6 #include "loc.h" 
7 #include “externs.h" 
8 
9 


10: Int print_statistics(map filename, Stat_filename, command_line, \ 
ze exename, output file, configname, entry point) 

12 char *map filename ; 

13 char *stat filename ; 

14 char *command_line ; 

15 char *exename ; 

16 char *output_ file ; 

17 char *configname ; 

18 unsigned char *entry point ; 


i724 

20 unsigned long temp ; 

21 long ltime ; 

22 ihe <2 

23 SEG DESCRIPTOR *p ; 

24 SYMBOL LIST *q ; 

25 he 

26 /* 

27 This function generates the locate map file. The locate map 
28 file contains the segment information with the physical 
29 segment addresses. 

30 al i 

31 

32 fprintf (print file, “MS-DOS Locate Utility Version Le ovan) z 
33 fprintf (print file, “Input File: %s\n", exename) ; 

34 fprintf(print file, “Output File: %s\n", output file) ; 

35 fprintf(print file, “Configuration File: %s\n", configname) ; 
- fprintf (print file, “Invoked by: %s\n", command_line) ; 

38 time (&ltime) ; 

:. fprintf (print file, “Date/Time: s\n“, ctime(&ltime)) ; 

41 /* Display the located segment information */ 

42 fprintf(print_file, “Segment Information\n") ; 

43 fprintf (print file, "%-16s%-16s%-12s%-12s\n", “Name", “Class", 
“Address“, “Length"); 

46 p= seg list ; 

47 while (p != NULL) { 

48 temp = (unsigned long) P->pseg ; 

49 temp = temp * 16 + p->offset : 

50 fprintf (print file, "%-16s%-16s%051XH$10.04XH\n", p->name, 
51 Pp->class, temp, p->len) ; 

52 Pp = p->next ; 

53 
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55 /* Display the symbol information */ 
4 Toa ee “\n\nPublic Symbols\n") 7 
= Q' 3 
58 p = seg list ; 
59 while (p != NULL) { 
60 q = p->symbol list ; 
61 while (q != NULL) { 
62 fprintf£(print_file, “%04xX:%04X %-16sts", p->pseg, 
63 q->value, q->name, i++ ? “\n" : “\t\t") 3 
64 i $= 2 ; 
65 G = q->next ; 
66 } 
67 p = p->next ; 
68 } 
69 
70 fprintf(print file, “tsEntry Point - $p\n", (1 == 1) 2? “\n\n" : “\n", 
71 entry point) ; 
72 
2 return ; End Listing Seven 


Listing Eight 


READCFG.C 

1 #include <stdio.h> 

2 #include <stdlib.h> 

3 #include <string.h> 

4 

5 #include “loc.h" 

6 #include “externs.h" 

7 

8 int process class_keyword(), process order keyword (), process null() ; 
9 int process rom _keyword(), process dup keyword(), process comment() ; 
10 
11 
12 static struct CFG_COMMANDS { 

is char *cmd ; 

14 int (*command) () 7 
15 } cfg_cmds[] = { 

16 “CLASS", process class_keyword, 
17 “ORDER", process order keyword, 
18 "ROM", process rom_ keyword, 
19 "DUP", process dup keyword, 
20 aa at process comment 

21 } ; 

22 

23 


24 int process locate _file(seg_list) 























can plot your 
ata in 

publication 
quality 





on your IBM PC 


elinear, log, polar plots 
ebar charts, Smith charts 
e3D curves, 3D surfaces 
°6 curve types, 8 markers 
e14 fonts, font editor 
4096 x 3120 resolution 
ezoom, pan, window plots 
ehigh resolution printer 


and plotter dumps in color ™ ; F testi ; 1 
AS i EA B- E D | T ing new type of training system I’ve ever seen. 
oars for full control Our new binary editor for ‘ Satisfaction Guaranteed 
$395 with source code programmers - $29 Borders or return in 30 days for refund. To order the C 
For personal use only eHOPSCrSL WORKSHOP, call toll-free (800) 227-2400 


MOST HARDWARE IS SUPPORTED 
Scientific Endeavors Corporation 


sss EEE 
Route 4, Box 79 Kingston, TN 37763 (615) 376-4146 
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GraphiCo” VTEK™ 





DEC™ VT100/VT52 
and Tektronix™ 
4010/401 4/4105 
Terminal Emulator | 


°20 user-defined keys 


escroll back buffer es 
Ragas Hcg fs par C with immediate feedback on 
Kermit and XMODEM your program exercises. 


eup to 800x600 screen 
resolution on EGAs 
°zoom, pan, window plots 
e"hot key" to DOS 
eenhanced keyboard sup- 
port 

eANSII extensions to 
VT100 for multi-color text 
escrolling VT100 window 
on graphics screen 


$150. Site and source code 
licenses available 
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(continued on next page) 


C is a great programming 
language. Now the new 
C WORKSHOP makes it easy. 

Interactive software teaches you. 

















The C WORKSHOP has 
everything you need to 
learn C and write your 
own programs, too. You —" 

get a fast editor, standard C com- 
piler, and online help. Plus our renowned book. 
Let the other guy struggle with confusing books 
and compilers. Join AT&T and other major com- 
panies that use the C WORKSHOP. InfoWorld 
columnist Adam Green calls it "the most intrigu- 






























ext. 955 day or night (Visa, MC, or AmEx). Or 
send check to Wordcraft, 3827 Penniman Av, 
Oakland, CA 94619. $69.95 plus $5.00 ship- 
Quality software since 1981 ping (Priority Mail). In CA, add $4.90 sales 
tax. 
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Listing Eight (Listing continued, text begins on page 38.) 


25 SEG DESCRIPTOR *seg list ; 


























26 { 
21 int i, error = OK; 
28 char *tok, *buf ; 
29 
30 Has 
34 This function reads the configuration file and performs the parsing 
a2 and control transfer to routines which perform the desired action. 
a3 */ 
34 
35 /* Allocate some memory for the line buffer */ 
36 if ((buf = malloc(256)) == NULL) { 
37 perror({ FILE) ; 
38 exit(1l) ; 
39 } 
40 
41 /* Read and categorize a token from the configuration file */ 
42 while (fgets(buf, 256, config file) != NULL) { 
43 /* Extract the first token (read the next line if none is found ¥/ 
44 if ((tok = strtok(buf, " \t\n")) == NULL) 
45 continue ; 
46 
47 for (1 = 0; i < dim(cfg cmds); i++) { 
48 if (stricmp(cfg_cmds[i].cmd, tok) == 0) { 
49 error = (*cfg cmds[{i].command) () ; 
50 break ; 
51 } 
52 } 
53 
54 if (i == dim(cfg_cmds) ) { 
55 fprintf(stderr, "Illegal input - <te>\n", tok} -; 
56 exit(1) ; 
a7 } 
58 } 
59 free(buf) ; 
60 return error ; 
61. } 
62 
63 
64 int process comment () 
65 
66 return OK 7 
G7 3 
68 
69 
70. = Znt process class_keyword () 
eal 
72 char *tok, name[32], *p ; 
73 unsigned int seg ; 
74 
f3 /* ; 
76 This function parses the remainder of the CLASS directive. 
77 */ 
78 
79 /* Read the class name */ 
80 strcepy (name, strupr(strtok (NULL, ™ \t\n="))) ; 
81 
82 /* Verify that an equal sign is present */ 
83 if (stremp( (tok = strtok(NULL, " ACV HT} TS ery t= 0} { 
84 fprintf(stderr, "\"=\" expected instead found <ts>\n", Sok} s 
85 return ERROR ; 
86 4 
87 
88 /* Read the segment number for the Class */ 
89 tok = strtok(NULL, “ \t\n") ; 
90 seg = (unsigned int) strtol (tok, &p, 0) ; 
91 Tf {*p) { 
92 fprintf(stderr, "Unrecognized token <%s>\n", p) ;3 
93 return ERROR ; 
94 } 
95 
96 /* Assign the physical segment number to the specified class */ 
97 Lf (assign_ physical segment (name, seg) == ERROR) { 
98 fprintf(stderr, “Undefined class <%s>\n", name); 
99 return ERROR; 
100 } 
101 
102 return OK ; 
103} 
104 
105 
106 int process order keyword () 
LF; cod 
108 Char *tok, pclass[32], Class[32] ; 
109 unsigned int next seg ; 
110 BOOLEAN found = FALSE ; 
111 
112 
113 J* 
ee This function processes the ORDER directive. 
11. */ 
116 
117 /* Read the leading class name from the command */ 
co strcepy(pclass, strupr((tok = Strtok(NULL, “ \t\n")))) 3 
120 /* Process the remaining class names in the command */ 
net while ((tok = strtok(NULL, "“ \t\n")) != NULL) { 
122 if (*tok == ';') 
423 break ; 
124 
125 found = TRUE ; 
oe strcpy(class, strupr(tok)) ; 
128 /* Compute the segment address for this class to be made 
at contiguous with the previous Class */ 


if (get_next_segment (pclass, class, &next_ seg) == ERROR) { 





(continued on page 90) 
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SAS Institute Inc. 





Announces 


Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice? C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System-—regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 
Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

™@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

™@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 


i want to learn more about: 


C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


(] the C compiler for MVS software developers 
1 the C compiler for CMS software developers 
1) the cross-compiler with PLINK86 and PLIB86 


today...so I’ll be ready for tomorrow. 


Please complete or attach your business card. 


Name 
Title 

Company 
Address 
City 
Telephone 




















Mail to: SAS Institute Inc., Attn: CC, SAS Circle, Box 8000, Cary, NC, USA. 


27511-8000. Telephone (919) 467-8000, x 7000 
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SAS is the registered trademark of SAS Institute Inc., Cary, NC, USA. Lattice is the registered trademark of Lattice, Inc. PLINK86 and PLIB86 are trademarks of Phoenix Software Associates Ltd. 
UNIX is the trademark of AT&T. Copyright © 1985 by SAS Institute Inc. Printed in the USA. 
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NEW! TLIB™ 4.0 
SOURCE CODE CONTROL 


The best keeps getting better! 


The critics Joved TLIB 3.0... 


"...packed with features... [generates deltas] 
amazingly fast... [of the 6 reviewed] the two best 
packages are Burton Systems’ TLIB and [a $395 
product], so designated because of their ease of 
use, abundance of features, and ability to be 
configured...” PC Tech Journal Sept 87 


“..has my highest recommendation.” Ronny 
Richardson, Computer Shopper Aug 87 


e The fastest, most powerful system is now even faster! 


e Many new features! Expanded keyword support. Multi- 
line comments. Branching, for multiple development lines. 
Extended wildcard and list-of-file support; creates lists by 
scanning source code for includes. Can merge (reconcile) 
multiple simultaneous changes and undo intermediate 
revisions. Network and WORM optical disk support. 

e Includes a copy of Landon Dyer’s excellent public domain 
MAKE utility (with source code for DOS & VAX/VMS). 


PC/MS-DOS 2.x & 3.x Just $99.95 + $3 s/h Visa/MC 
BURTON SYSTEMS SOFTWARE 
P. O. Box 4156, Cary, NC 27519-4156 
(919) 469-3068 
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great for documentation 
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$79.95 + $5.00 S/H Sales Tax if CA. 


1454 Sixth Street, Berkeley, CA 94710 
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DOS LOCATE UTILITY 


Listing Eight (Listing continued, text begins on page 38.) 


a Ba fprintf(stderr, “Undefined class <ts>\n", pclass) ; 
132 return ERROR ; 

133 } 

134 

pe /* Assign the computed segment number to the class */ 
136 if (assign physical segment (class, next_seg) == ERROR) { 
137 fprintf(stderr, “Undefined class <%s>\n", class) ; 
138 return ERROR ; 

139 } 

140 

141 /* Setup to process the next class */ 

142 strcepy(pclass, class) ; 

143 } 

144 

145 return (found == FALSE) ? ERROR : OK ; 

146 

147 

148 

149 int process dup keyword () 

150 { 

151 char *tok, old class[32], new Class[32) ; 

352 

153 

154 ¢* 

155 This function is responsible for processing the DUP directive. 
156 «7 

157 

158 /* Read the existing class name */ 

159 strcpy (old class, strupr((tok = strtok(NULL, ™ \t\n")))) 3? 
160 

161 /* Read the name of the class to be created */ 

162 strcepy (new_class, strupr((tok = strtok(NULL, “ \t\n")))) 3; 
163 

164 /* Duplicate the existing class */ 

16S Be (dup class(old class, new Class) == ERROR) { 

166 fprintf(stderr, “Undefined class <%s>\n", old class); 
167 return ERROR ; 

168 } 

169 

170 return OK ; 

bya # 

TZ 

173 

174 int process rom keyword () 

Lie 5 

176 char *tok, class[32] ; 

Yi7 

178 -* 

179 This function processes the ROM keyword and marks all specified 
180 classes as ROMable. 

181 wd 

182 

183 /* Read all of the tokens on the line */ 

184 while ((tok = strtok(NULL, ™ \t\n")) != NULL) { 

185 if (*tok == °*;°) 

186 break ; 

187 

188 strepy(class, strupr(tok)) ; 

189 

190 if (rom_class(class) == ERROR) 

191 fprintf(stderr, “Undefined class <%s>\n", class) ; 
192 return ERROR ; 

193 } 

194 } 

195 

196 return OK ; 

a7 |} 


Listing Nine 


READMAP .C 
1 #include <stdio.h> 
2 #include <stdlib.h> 
3 #include <string.h> 
4 #include <malloc.h> 
5 
6 #include “loc.h" 
7 #include “externs.h" 
8 
9 #define BUFSIZE 256 
10 
11 
12 SEG DESCRIPTOR *build seg list () 
13° 4 “} ~ 
14 int count ; 
15 unsigned long Start_seg, end_seg, length; 
16 char seg name[32], Class[32]; 
i? char *buf ; 
18 
z. SEG DESCRIPTOR *p, *previous, *list_ start, *class start ; 
yal f* 
22 This function is responsible for the processing of the link map. 
23 The link map is read and the segment information such as segment 
3s se name, segment length and class name are recorded. 
26 
27 /* Seek to the beginning of the file */ 
28 if (fseek (map file, OL, SEEK SET) != 0) { 
29 perror( FILE ) ; = 
30 exit (1); ~~ 
31 } 
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End Listing Eight 

















32 
33 /* Allocate some memory for the line buffer */ 
34 if ((buf = malloc(BUFSIZE)) == NULL) { 
35 perror(_FILE_) ; 
36 exit(i}:"3 
37 } 
38 
39 /* Search thru the file looking for the start of the segment informati/ 
40 while (1) { 
41 if (fgets (buf, BUFSIZE, map file) == NULL) { 
42 fprintf(stderr, “Unable to find the segment list in %s\n", map_f; 
43 exit (2): id 
44 } 
45 
46 if (strstr(strupr(buf), “START") != NULL) 
47 break ; 
48 } 
49 
50 /* Scan to the start of the first segment record */ 
51 while (fgets (buf, BUFSIZE, map_file) != NULL) { 
ae count = sscanf (buf, “ %1xH %1xH %1xH %s %s", &start_seg, send_seg, ; 
53 4£ (count == 5) ~ * 
54 break ; 
55 } 
56 
i /* Check if EOF was detected and an error message should be printed */ 
58 if (feof (map file) ) { 
59 fprintf(stderr, "Unable to find the segment list in %s\n", map_fnam; 
60 exit(1) ; 
61 } 
62 
63 /* Begin processing the list of segments */ 
64 p = previous = NULL ; 
65 while (count == 5) { 
66 /* Allocate some memory to hold the data structure */ 
67 if ((p = (SEG_DESCRIPTOR *) malloc(sizeof (*p))) == NULL) { 
68 perror( FILE) ; 
69 exit(1l) ; 
70 } 
71 
72 if (previous == NULL) 
43 list start =) ; 
74 else 
75 previous->next =p ; 
76 
oF strcepy(p->name, strupr(seg_name)) ; 
78 strepy(p->class, strupr(class)) ; 
79 p->vseg = (unsigned int) start_seg / 16; 
80 p->offset = (unsigned int) start_seg % 16 ; 
81 p->len = (unsigned int) length ; 
82 p->position = start_seg ; 
83 p->inited = FALSE ; 
84 p->romable = FALSE ; 
85 p->symbols = 0 ; 
86 p->symbol list = NULL ; 
87 p->next = NULL ; 
88 
89 /* Check if the class name has changed and reset the offset */ 
90 if (stremp(p->class, class_start->class) t= Q) { 
91 p->pseg = 0 ; 
92 class start =p; 
93 } 
94 else 
95 p->pseg = p->vseg - class_start->vseg ; 
96 
97 previous = p; 
98 
99 /* Read the next line of segment information */ 
100 fgets (buf, BUFSIZE, map_file) ; 
101 count = sscanf(buf, “ %1xH %1xH %1xH %s %&s", &start_seg, &end seg, ; 
102 } 
103 
104 free(buf) ; 
105 return (list_start) ; 
aa +2 End Listing Nine 
o @ 
Listing Ten 
SIEVE.C 
i 7* 
2 Sieve Benchmark - ROM Version 
3 
4 Copyright (C) Recycled Software 1987. All rights reserved. 
5 
6 Executes 100 Iterations of the sieve algorithm for microprocessor 
7 benchmarking purposes. 
8 
9 */ 
10 
pi 
12 #define TRUE 1 
13 #define FALSE 0 
14 #define SIZE 8190 
15 
16 char flags[(SIZE + 1) ; 
17 
18 main() 
ae 
20 int i, prime, k, count, iter ; 


21 
(continued on next page) 
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A Reconfigurable 
Programmer’s Editor 
With Source Code 


MEis a high quality programmer’s text 
editor written specifically for the IBM 
PC. It contains features only found in 
the more expensive programmer’s text 
editors.These features include: 


s Multiple Windows 
= Column cut and paste 
= Line marking for source code 
=» Regular Expressions 
uw C-like Macro Language 
=» Reconfigurable Keyboard 
=» Capture your DOS session 
s Run your compiler and examine 
errors 
= Comes with useful precompiled 
macros 
a UNIX-like CTAGS 
s 43-line mode with EGA 











































This is the ONLY editor with the power 
of the higher priced editors which 
comes with complete source code! 





New commands and features may be 
added to the editor by writing programs 
in its macro language. The language 
resembles C, and comes with a rich set 
of primitives for handling strings and 
changing the editor environment, plus 
most of the flow-of-control constructs 
that come in C (for, while, if, break, con- 
tinue). 





The code is written in standard C, with 
several key library routines written in 
assembler for speed. The source code 
option is perfect for OEMs and VARs 
who want to add editing or word proc- 
essing capabilities to their applications. 
Price for editor and on-line docu- 
mentation ---- $39.95 

Price for editor with complete source 
code -- $94.95 

(Please add $2 for shipping & han- 
dling, $6 overseas) 

Special offer -- New York Word word 
processor -- $39.95 -- Multi-window- 
ing, mail merge, hyphenation, math, 
regular expressions, TOC and index 
generators 


MAGMA SYSTEMS 


138-23 Hoover Ave. Jamaica,NY 
11435 (201) 792 - 3954 
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Listing Ten (Listing continued, text begins on page 38.) 


22 for (iter = 1; iter <= 100; iter++) { 
23 count = 0 ; 

24 for (i = 0; i <= SIZE; i++) 

25 flags[({i}] = TRUE ; 

26 

27 for (1 = 0; i <= SIZE; 1++) { 

28 if (flags[i)) { 

29 prime = i+i+3>;3 

30 for (k = 1 + prime; k <= SIZE; k += prime) 
31 flags{k) = FALSE ; 

32 

33 count++ ; 

34 } 

35 } 

36 : 

oa 

38 

39 


Listing Eleven 


STABLE.C 

1 #include <stdio.h> 

2 #include <stdlib.h> 
3 #include <string.h> 
4 #include <dos.h> 

5 

6 include “loc.h" 

7 #include “externs.h" 
8 

9 char ‘*errstr = “Unable to locate global symbol \"%s\"\n" 
10 
alah 


12 void read_symbol table (seg_ list) 
13 SEG DESCRIPTOR *seg list ; 


14 { 

3 char buf(128) ; 

16 int count, found ; 

17 unsigned int vseg, off; 

18 char symbol[(32], attrb[10] ; 
19 

20 SEG DESCRIPTOR *p ; 

21 SYMBOL _LIST *q ; 

22 

23 /* 

24 This function reads the linker map file and extracts the 


25 symbol information. (continued on page 94) 


C talk” 


OBJECT-ORIENTED PROGRAMMING IN C 





Whatis C_talk'™ 


C_talk™ is an object-oriented development environment in C with Smalitalktike messaging formats. It lets the 
Software developer use the C_talk™ Browser to develop an object-oriented program, then use the C_talk™ Compiler 
to convert this program into C code compatible with most popular C compilers. The combined data abstraction power 
of object-oriented programming with the efficiency, speed, and flexibility of C results in a high productivity 
development and delivery environment which can significantly cut development time. C_talk™ offers: 


The Power of OOLs 


C_talk™ is designed to let you take full advantage of object-oriented languages (_OOLs). It is designed so that both 
the object-oriented guru and the "non-objecting” neophyte can use C_talk™ to explore and exploit the exciting world 
of OOLs. C_talk™ contains: 

+ Encapsulation (“objects”) + Messaging * Inheritance 


The Efficiency of C 


C_talk™ does just what its name suggests — lets you talk in C, and thereby gives you all the efficiency and advantages 
of C: 


* Speed, Size, Flexibility + Ease of Application Delivery * Access to C libraries and C tool sets 


The user of standard C will find programming in C_talk™ is basically programming in C, but with a powerful 
difference: C_talk™ is an object-oriented environment. C_talk introduces to C a new data type — the object, and a 
new operation — the message. 


The Productivity of C_talk™ 


C_talk™ is a synergy of C and Smalitalk-like features — yielding much greater productivity to the software builder: 


* Define software components in object-oriented terms. 

+ Extend software components with full class-inheritance. 

* Automatically convert work into C code. 

+ Reuse software components to obtain results in less time. 
* Learn quickly using standard C in C_talk™. 


System Requirements 


C_talk™ (version 1.0) is designed to run on the IBM® PC (or compatibles) with graphics (CGA, EGA, PGA) and with 
one of the following C languages: Microsoft® C, Lattice C, Turbo C, or C86. A system configured with a hard drive 
and mouse is highly recommended. 














TO ORDER: ee «gone —-~ 
CNS, Inc. — sen —_ = 
Software Products Dept. 3 
7090 Shady Oak Road 
Eden Prairie, MN 55344 baniiens eel — 
(612) 944-0170 =. = @ 
PRICE: $149.95 a ‘ 
Crest Cards: Coes Card, Visa ae 
IBM § istered trade mark of IBM Corp. Seana eachhin 
MICROSOFT ‘ a err bar rae ere Evil . soo 
of MICROSOFT CORP. Abas, 
C tak is a trade mark of CNS, Inc. wi ky peice: 
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End Listing Ten 














PRODUCTION 
LANGUAGES CORP. 


PRODUCTION QUALITY 


68020 
ANSI C Compiler 


@ Full 68020 instruction set 

® Full 68881 support 

@ ANSI Standard reentrant library 

@ Extensive Sybolic Debug information 
@ Internal consistancy checking 

® Position independant code 

@® ROMable code 


PC Hosted cross-compiler 
























2 USER ACORSE ou. $1500.00 
VME Hosted native compiler 

single CPU license................. $1500.00 
ANSI standard reentrant 






library Source code................. 








SPECIAL OFFER 


For a limited time only we are offering full 
library source FREE with the purchase of either 
68020 C compiler 


817-599-8366 
P.O. Box 109, Weatherford, Texas 76086 
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‘¥ Professional C function library 
¥ 30 day money back guarantee 
¥ Multiple bullet proof windows 
Easy full screen data entry 

Y Unlimited data validation 

¥ Context sensitive help manager 
Menus like Lotus and Mac 

4 Programmable keyboard handler 
Text editor routines 

No royalties or runtime fees 
Library source included FREE 
Free technical support 

4 Free BBS at (214)418-0059 
Supports all major compilers 





including Microsoft 5.0 
‘ VCScreen code generator too! 
( UNIX version avaialable, 
call for details 











26 */ 

27 

28 /* Seek to the beginning of the file */ 

29 if (fseek (map file, OL, SEEK SET) != 0) { 

30 perror(__ FILE ) ; ‘a 

a1 exit (1) > i 

32 } 

33 

34 /* Search thru the file for the symbol tables */ 
35 while (1) 

36 if (fgets (buf, sizeof (buf), map file) == NULL) 
a? return ; 

38 

39 if (strstr(strupr(buf), “ADDRESS") != NULL) 
40 break ; 

41 } 

42 

43 /* Read each of the symbol entries */ 

44 while (1) 

45 count = fscanf(map file, " 

46 if (count != 4) 

47 break ; 

48 else { 

49 D.= seg list; 

50 found = FALSE ; 

51 while (p != NULL) { 

52 1f ((p->vseg != vseg) || (p->len == 0)) { 
33 Pp = p->next ; 

54 continue ; 

a5 

56 

57 q = (SYMBOL LIST *) coe ee ; 
38 strcpy (q->name, symbol) ; 

59 Q->value = off ; 

60 q->type = 1 ; 

61 q->next = p->symbol list ; 

62 p->symbol list = q 7 

63 p->symbols++ ; 

64 found = TRUE ; 

65 break ; 

66 } 

67 

68 if (found == FALSE) 

sh fprintf(stderr, errstr, symbol) ; 











POWER UP YOUR 386 


MULTI-USER DOS 


UNDER UNIX® 
In Stock - Ready to Ship 


386/ix Applications Platform 
386/ix UNIX V.3 run time 
VP/ix (DOS under UNIX) 
TEN/PLUS User Interface 
Software Development System 


INTRODUCTORY PRICE 
FOR TWO-USER SYSTEMS 
All of the Above for $894 


Unlimited user licenses and more options available 


Call now to order: 
(800) 323-8649 or (312) 987-4084 


COMPUTER 
TECHNOLOGY 
GROUP 


Telemedia, Inc. 
310 S. Michigan Ave., Chicago, IL 60604 


UNIX is a registered trademark of AT&T 
MS-DOS is a trademark of MICROSOFT 
386/ix, VP/ix, and TEN/PLUS are trademarks of 
INTERACTIVE SYSTEMS CORPORATION 
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DOS LOCATE UTILITY . 


Listing Eleven (Listing continued, text begins on page 38.) 


$4x:%4x%5c ts", &vseg, scoff, attrb, symb; 








End Listing Eleven 
(Listings will continue next PaOnOY.| 





Break 
The dBase 
Barrier 


dBase to C conversion 
is now a reality 


Sooner or later you’re going to run into the dBase wall. It may 
come up unexpectedly. Maybe you know it’s there. But at 
some point you are going to need faster run-time, real 
portability, stronger code refinement, and source code security. 


Using dBx to translate your dBase code to C is the perfect way 
to break the dBase barrier. C is portable, fast, and flexible. C 
programmers appreciate our commented, clean K&R code. If 
you are new to C, dBx is a great way to get up to speed. Why 
not call us today and discuss your individual situation. 


GBx - The dbase 


jtldidiaaillblllie 


A\ Desktop Ai (293) 255-3400 


1720 Post Road E 


Westport, CT 06880 TELEX - 6502972226MCI 
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Turbo Tech Report 
Speaks Your Language. 











The newsletter /disk publication for Turbo Pascal® users 


Are you looking for powerful utilities written in Turbo 
Pascal that you can use to develop software or incorporate 
into your programs? Are you interested in improving and 


Computing, Media Cybernetics, Nostradamus, and more! 
¢ News and commentary detailing the latest 
products and developments in the Turbo Pascal 


expanding your Turbo Pascal programming skills? 
Then you deserve a subscription to Turbo Tech 


programming community. 


Report, the bimonthly newsletter /disk publication from 
the publishers of Dr. Dobb’s Journal and Micro/Systems 
Journal. Each issue delivers more than 250K of Turbo 
Pascal source code programs on disk, and 24+ pages of 
articles, Turbo Pascal software and book reviews, and 


analysis and commentary. 
It's the only publication 
delivering such focused tech- 
nical articles with code on 
disk. Each valuable issue 
contains: 

¢ Articles on topics like 
speedy 3D graphics, math- 
ematical expression parsers, 
creating global gotos, mem- 
ory resident and AI applica- 
tions and more—all written 
by Turbo experts. 

e Reviews of the latest 
Turbo Pascal software pro- 
grams from companies like 
Borland International, Blaise 


Ne ee maple ss | 


—yYes! I want a one-year subscription to Turbo Tech Report (6 
issues with 6 disks) for $99. 

[_] PC/MS-DOS (| Macintosh 
[_] Kaypro [_] Osborne [_] Apple 


Format: 


CP/M: 


PAYMENT MUST ACCOMPANY ALL ORDERS 


[_] Check/money order enclosed. 














[] Charge my: —— VISA ~——M/C — —AmExp. 
Card * Exp. 
Signature 

Name 

Address 

City State Zip 





Orders outside U.S.: add $30. 


¢ A disk filled with Turbo Pascal code! You'll get 
the Turbo Pascal utilities and routines discussed in the 
newsletter’s articles, as well as applications developed by 
Turbo users from around the world. You'll receive 
programs that make labels, generate menus, provide 
faster screen access, transfer files, and more! 


If you're an expert Turbo 
Pascal programmer or a 
novice interested in 
expanding your Turbo skills, 
you need a publication that 
speaks your language: Turbo 
Tech Report. Subscribe 
today at the special price of 
just $99—that’s 33% off the 
regular price of $150. To 
order by credit card, call toll- 
free 1-800-533-4372. Or 
mail the coupon with your 
payment to Turbo Tech 
Report, 501 Galveston 
Drive, Redwood City, CA 
94063. 





THE PROGRAMMERS SHOP 





helps save time, money and cut frustrations. Compare, evaluate, and find products. 





FREE Innovative Software 
Technology Details 


Since 1983. we ve kept microcomputer developers ab- 

reast of software development trends. Our specialists 
help you with information about products that raise your 
productivity and enrich your programming environ- 
ment. Now you can receive a special packet covering 
one of the 7 important approaches to productivity en- 
hancement. PLUS a Free series of articles from our 
newsletter, “The Programmer's Letter,” discussing this 
important subject. Call TODAY and specify Trans- 
lators., Cross Compilers. 386 Native Mode Develop- 
ment, Prototyping Software, Object-Oriented Program- 
ming, Visual Programming. or Windowing Environ- 
ments. Our Services: 


* Programmer's Referral List 

* Compare Products 

* Help find a Publisher 

+ Evaluation Literature FREE 

* BBS-7PMto7 AM 617-740-2611 


* Dealers Inquire 
* Newsletter 
* Rush Order 


+ Over 700 products 
+ National Accounts Center 


Al-Expert System Dev't 





Arity Combination Package PSS O79 
System - use with C MS $ 229 
CxPERT - shell for C MS $ 259 
Exsys PC $ 289 
Level 5 - formerly Insight2+ MS $ 589 
T.L: P€ Easy PC $ 435 
Personal Consultant Plus PC $2589 
Turbo Expert-Startup (400 rules) PC $ 129 

Corporate (4000 rules) PC $ 359 


PNB -Taleler-le[-1-) 


APT - Active Prolog Tutor - build 
applications interactively , 
ARITY Prolog - full, 4 Meg 
Interpreter - debug, C, ASM PC 
COMPILER/Interpreter-EXE PC 
MicroProlog Prof. Comp./Interp. MS 
PC Scheme LISP - by TI ru 
Star Sapphire MS 
TransLISP - learn fast MS 
TransLISP PLUS MS 
TURBO PROLOG by Borland PC 
Others: IQ LISP ($239), IQC LISP ($269) 


Basic 
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BAS_C - economy MS $ 179 
BAS_PAS - economy MS $ 135 
Basic Development Tools PC $ 89 
Basic Windows by Syscom Me. 2 
BetterBASIC PC 5. 129 
Exim Toolkit - full PC $ 45 
Finally - by Komputerwerks PC $_ 85 
Inside Track POS ..4a 
Mach 2 by MicroHelp Pe ye ae 
QBase MS $ 79 
QuickBASIC PC 5: 6? 
Quick Pak-by Crescent Software PC $ 59 
Quick-Tools by BC Associates PC $ 109 
Stay-Res PC 3 59 
True Basic rr x ee 
Turbo BASIC - by Borland 6 ee A 
Turbo BASIC Database Toolbox MS $ 69 


FEATURES . 


The Baler - compiles Lotus 1-2-3 
(1A, 2.01, or VP-Planner). Protect code 
speed execution, save disk space, 
password capability, user does not 
need 1-2-3. No Royalties. PC $ 459 
MKS AWK by Mortice Kern Systems. 
“4GL” for data transformation and 
report generation (conforms to Bell 
Labs spec for UNIX System V.3) allows 
multiple-subscripted arrays. MS $ 65 


SPECIAL PRICES 


386 TOOLS & 


DEVELOP 7 TIMES FASTER! 


HUMMINGBOARD 386 - Develop 2.6 or 7.9 
times faster than a 8 MHZ AT. AT or XT 
addin board uses dual processors for Speed and 
Hardware Debugging. 16 MHZ or 20 MHZ. 
Call about Benchmarks, Trial Program. 





RECENT DISCOVERY 
Windows/386 by Microsoft - multitask 

standard DOS applications in separate 

640K segments and access expanded 

memory. Toggle, run simultaneously, 

or foreground only. PC $149 


Om MF: Tate [UF-(e (Si Oxe)aal eo) (16) 


AZTEC C86 - Commercial PC $499 
C86 PLUS - by Cl MS $359 
Datalight C - fast compile PO at 
Datalight Optimum - C MS $ 99 
Lattice C - from Lattice MS $269 
Microsoft C 5.0- Codeview MS $275 
Microsoft Quick C MS $ 69 
Rex - C/86 standalone ROM MS $695 
Turbo C by Borland PC $ 69 


C Libraries-Files 


BT ree by Soft Focus 
CBTREE - Source, no royalties 


MS $ 
MS $ 





ctree by Faircom - no royalties MS $315 
rtree - report generation PC $239 
dB2C Toolkit V2.0 MS $249 
dbQUERY - ad hoc, SQL-based MS Call 
dbVISTA - Object only MS Call 

Source - Single user MS Call 
dBx - translator MS $299 


C-Screens, Windows, Graphics 


C Worthy Interface Library PC $249 
Curses by Aspen Scientific PC $109 
dBASE Graphics for C PC $ 69 
ESSENTIAL GRAPHICS - fast PC $185 
FontWINDOW/PLUS PC $229 
GraphiC - new color version PC. ‘3279 
Greenleaf Data Windows Pu S13 

w/source PC $269 
TurboWINDOW/C - for Turbo C PC $ 79 
Windows for C - fast PC $149 
Windows for Data - validation PC $239 
Vitamin C - screen I/O PC $159 
View Manager - by Blaise PC. 3199 
ZView - screen generator MS $129 


Atari ST & Amiga 


We carry full lines of Manx & Lattice. 







DBASE Language 
Clipper compiler PC $399 
dBASE II MS $329 
dBase III Plus PC $429 






Call for a catalog, literature and solid value 


800-421-8006 


THE PROGRAMMER’S SHOP “ 


Your complete source for software. services and answers 


5-D Pond Park Road, Hingham, MA 02043 
Mass: 800-442-8070 or 617-740-2510 10/87 
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Call before December 31, 1987 and mention 
this ad for these SPECIAL PRICES: 
Normal SPECIAL 


Sy $ 8 
S 19> § 19 


List 


S$ 130 
3-195 


DesqView PS/2 

PC/MOS/386 

XENIX System V 
Complete System 
Development System 

Operating System 


RECENT DISCOVERY 


COBOL/2 by MicroFocus-OS/2and * 
DOS Protected mode. 9 language 
variants, network support, syntax 
checker, fast code, debugger, huge 


$1149 
S 589 
S$ 589 §$ 


$1495 
S 695 
$ 695 


model. interface to C. PC $749 
B]=7-0~) a late ltr-le(-aOrelale 
dBASE II] LANPack PC $649 


DBXL Interpreter by Word Tech PC $139 





FoxBASE+ - single user MS $349 
Quicksilver by Word Tech PC $439 
DBASE Support 
dAnalyst PC $ 89 
dBase Tools for C PC $ 65 
dBricf with Bricf PC Call 
dBC ISAM by Lattice MS $169 
Documentor - dFlow superset MS $229 
Genifer by Bytel-code generator MS $279 
QuickCode III Plus MS $239 
R&R Report Gencrator MS $139 
Seek-It - Query-by-cxample PC 3 79 
Silver Comm Library MS $139 
Tom Rettig’s Library ru b 79 
Ul Programmer - user interfaces PC $249 
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50:More FORTRAN PC $ 95 
Fortran Addenda PC $139 
I/O Pro - screen development PC $129 
MS Fortran - 4.0, full °77 MS $269 
No Limit - Fortran Scientific PC $109 


PC-Fortran Tools - xref, pprint PC $ 
RM/Fortran MS Call 
Scientific Subroutines - Matrix MS $129 


TUTE Tale [UF-Te (= Bot 0) ole) at 


BTRIEVE ISAM MS $185 
BTRIEVE/N-multiuser MS $455 
GSS Graphics Dev't Toolkit PC SS75 
HALO Development Package MS $389 

Graphics PS. $209 
Hoops Graphics Library PC $549 
Informix 4GL-application builder PC $789 
Informix SQL - ANSI standard PC $639 
NET-TOOLS - NET-BIOS PC $129 
Opt Tech Sort - sort, merge MS $ 99 
PANEL MS $215 
Panel Plus MS $395 
Pfinish - by Phoenix MS $229 
Polyboost - speed I/O, keyboard PC Call 
Prime Factor FFT - 8087/287 PC $145 
PVCS Corporate or Personal MS. Call 
Report Option - for Xtrieve MS $109 
Screen Sculptor PC $ 89 
SSP/PC - 145+ math routines PC $269 
Synergy - create user interfaces MS $375 
Xtrieve - organize database MS $199 
ZAP Communications - VT 100 PC $ 89 


Note: All prices subject to change without notive. Mention this ad. Some prices 
are specials. Ask about COD and POs. Formats: 3” laptop now available. plus 
700 others. UPS surface shipping add $3 item 
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5-D Pond Park Road, Hingham, MA 02043 
Mass: 800-442-8070 or 617-740-2510 





Ask for a FREE REPORT: "Interviews with Authors & Users: 


How Can These Products Raise Productivity and Help You Write Better Programs?" from 





EXIM 
TOOLKIT: 








ESSENTIAL BASIC 
PROGRAMMING TOOLS 


A must for all BASIC programmers who use 
Microsoft’s QuickKBASIC or IBM’s PC BASIC com- 
pilers, our feature-rich, easy-to-use EXIM ToolKit 
provides dozens of useful routines unavailable in 
BASIC or any other single software library sold 
today! 

Here’s just some of what the EXIM ToolKit 
can do: 

With our Screen Management module, you 
get features like four-way scrolling, windowing and 
data entryAisplay in screen forms. You can also 
write to screen many times faster than with BASIC 
and develop software to copy areas of the screen for 
cut and paste functions. 

The multi-user Data Base Management 
module lets multiple users access the same data 
files across a local area network and still maintain 
data integrity. Users can build, add and delete 
indexes; reformat files and much more. Now BASIC 
users can control data as never before. 

The Network Interface modules make it 
possible for BASIC programs to issue NETBIOS 
commands. | 

BASIC limits you to 64K of RAM for strings. 
EXIM ToolKit’s Memory Manager lets you 
access up to 256K additional RAM for strings. 
And, we offer free technical support, 7 days a week. 

Order your EXIM ToolKit today. It’s only 
$99.95, ($199.95 with Network Interface Modules) 
plus $5.00 shipping and handling. (No licensing or 
royalties required.) If within 30 days, you are not 
completely satisfied with the EXIM ToolKit, 
return it to your dealer for a complete refund. 

The EXIM ToolKit is so comprehensive, 
we're convinced it’s the only BASIC Software 

i ‘ll ever need. 
Library you'll eve PS: $45 


<2 TEKIM: > 


EXIM SERVICES OF N.A. INC. 
P.O. Box 5417 
Clinton, New Jersey 08809 
(201) 735-7640 
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HOURS: 8:30 A.M.-8:00 P.M. E.S.T. 











THE PROGRAMMER’S SHOP 








all or Circle Reader Service Number for Your FREE Study. 


800-421-8006 









FIRMWARE DEVELOPMENT 


C, MASM PROM 
LINK & 
= ee LOCATE Ra 


LINK & LOCATE enables PC users to produce ROM-based 
firmware for 8086/87/186 from object files generated by 
popular C compilers, such as from Microsoft, Lattice and 
Borland’s Turbo C, and MASM from Microsoft, Provides full 
control of segment placement anywhere in memory. Sup- 
ports output of Intel HEX file for PROM programmers, Intel 
OMF absolute object file for symbolic debuggers and in- 
circuit emulators. Includes Intel compatible linker, locator, 
librarian, hex formatter and cross reference generator. $350. 


NEW! Includes utility to support PC based PROM 
programmers. 


*SYSTEMS & 
a) SOFTWARE: 


3303 Harbor Blvd., C11, Costa Mesa, CA 92626 
Phone (714) 241-8650 FAX (714)241-0377 TWX 910-695-0125 
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Now you see it; Now you don’t! 
TSR’s made easy with /*resident_C*/ 


Finally! You write your C program and we make it resident. 
No strings attached. Want to process interrupts also? No 
problem. /*resident_C*/is a set of C functions that enable 
you to process interrupts and/or make your programs "ter- 
minate stay resident" like Sidekick. 








































We've done the research, testing, and grunt work to make 
your TSR programs safe, compatible and easy. Be aware of 
the "ifs, ands and buts" when writing interrupt handling 
software. Only/*resident_C*/ has all that you need to write 
reliable interrupt handlers without the worries. 







We don’t ask you to trust us either. Our manual explains 
what we are doing very clearly and our documented source 
code is available. In addition, our working demos give you 
clear examples of resident programs, interrupt handlers 
and resident libraries. There is no other product that can 
do what /*resident_C*/ can do for you. 









/* resident_C */ is the perfect complement to the other 
library products available from Essential Software. 


= List: $99 / with Source add $99 
ee PS: $79 / with Source add $79 
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Listing One (Text begins on page 48.) 
Listing 1 
ISQRT32.ASM - 32 bit integer test program for no 8087 


By Ray Mariella, March 87 
page 796 


=e Me 


colt macro 
mov adl..i3 
call  char_out 
Mov d1,10 
call char_out 
endm 





time_print macro byte var, byte string 
local plenty 
Mov dl, byte string ;output a colon or period 
call char_out 
cmp byte var,9 


ja plenty 
mov ar, “0° ;space holder if var<10 
call  char_out 
plenty: mov al, byte var sminutes, secs, or hnds 
xor ah,ah 
call dec out 
endm 
data segment word public 'DATA' 
base dw 10 sbase for dec out 
uper db ? ;for time print routine 
secs ay 2 
hnds ab - 7 
announc db ' 60000 32 bit square roota ",13,10,'$‘ 
data ends 
stack segment stack 
dw 64 dup(?) 
stack ends 
code segment word public ‘code’ 
assume cs:code, ds:data, ss:stack 
sqrt: mov -ax,data 
mov ds,ax 
crit 
mov dx,offset announc 
mov ah, 9 sprint string function 
int 21h ;DOS interrrupt 


Mov d1,13 
call char_out 


hetald: CELE 


rolling: -xor di,di. supper 16 
mov si,32767 slower 16 


goodies: call update 


3 square root procedure of DI:SI via 8086, 


start: mov bx, 1 ;initial value for infimum 
mov ax, ai sinitial supremum, upper 16 
mov ax, si ;initial supremum, lower 16 

biggest: or dx, dx ;test if upper 16 =0 yet 
jz words :if yes, we don't need upper 16 now 
rCr dx,1 ;supr. upper 16/2 
fer ax,1 ;supr. lower 16/2 + carry from upper 
shl bx, 1 sinfim.*2 


jmp short biggest 
;now infim. and supr. are 16 bits 


words: or bx, bx ;if BX was made 0, correct it! 
jnz checkem sif not, O.K. to continue 
mov bx, Offffh ;correction for the largest 32 bitters 
checkem: mov dx, ax ;supr. in ax, dx 
mov cx, bx sinfim. in bx,cx 
logit: shl cx, 1 ;infimum*2 
jc average snecessary for large integers 
cmp cx, ax sinfimum*2 > supremum? 
jae average ;if so, ready to average 
shr dx,1 2if nat, supe/2 
mov ax, ax ;store latest values 
mov bx, Cx 


jmp short logit 
;ready for averaging 





average: 
add bx, ax ; (infim.+ supr.) 
rer bx, 1 saverage value for first guess 
Newton: 
REPT 2 
mov ax, si slower 16 of target in ax, 
MOv dx, di supper 16 of in dx, for division 
: cmp bx, dx sthis is for near FFFE:0000 and up 
; je cont sbut not needed for FFFD:C000 and less 
div bx :N/(g1) in AX, now get g2 
add bx, ax :Newton's method g2 = (gl +N/gl)/2 
rer bx, 1 *bx now has g2 
endm 
cont: inc di 
cmp di, 60000 
ja quit 
jmp start 
quit: call update 





(continued on page 100) 
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s./ 386|/DEBUG 


we e A symbolic debugger for 80386 32-bit 
protected mode programs which run 
under Phar Lap’s 386|DOS-Extender™ 


e Breakpoints, data watchpoints, and built-in 
disassembler 





° Fully compatible with Phar Lap’s 386| ASM/LINK, 
the MetaWare 80386 High C™ and Professional 
Pascal™compilers, and the Green Hills 80386 
Fortran compiler 


e Runs on all DOS-based PCs equipped with an 
80386 CPU, including the Compaq® DESKPRO 
386™, the IBM®PS/2™ Model 80, and most 
accelerator cards, including the Intel Inboard™ 
S86/AT 


e $195—Available today 


(617) 661-1510 


Phar Lap Software, Inc. 
60 Aberdeen Ave. 
Cambridge, MA 02138 





“The 80386 Software Experts” 
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Would you like 


copy protection and 
customer satisfaction? 


TfHhere’s a better way to protect your software. 
It’s called the Secom Key, and it works. 


The Key is completely 
transparent to the end user. 
Won't interfere with 
peripheral operations. 


Doesn’t occupy the 
disk drive. 


The Key allows unlimited 
backup copies. 





Makes site licensing easy 
and auditable. 


Easily installed. Uses only 1000 bytes. ag Key... 
or real 

Over 100,000 have been sold worldwide. software 
protection. 


Same size as RS-232 plug. 


Available in quantities for as low as $19.95. 
ar a4 


HF or more information, contact 


SL.ae8 


Secom Information Products Company 
A Subsidiary of Secom General Corporation 


Call Toll-free 1-800-843-0413 
500 Franklin Square 1829 East Franklin Street Chapel Hill, NC 27514 
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ADD TO THE POWER OF YOUR PROGRAMS WHILE YOU SAVE TIME AND MONEY! 


iL 


CBTREE does it all! Your best value in a B+tree source! 


Save programming time and effort. 

You can develop exciting file access programs quickly and easily because 
CBTREE provides a simple but powerful program interface to all B+tree 
operations. Every aspect of CBTREE is covered thoroughly in the 70 page 
Users Manual with complete examples. Sample programs are provided on 
disk. 


Gain flexibility in designing your applications. 

CBTREE lets you use multiple keys, variable key lengths, concatenated 
keys, and any data record size and record length. You can customize the 
B+tree parameters using utilities provided. 


Your programs will be using the most efficient searching techniques. 
B+trees use efficient search techniques that require fewer disk seeks than 
other methods. CBTREE guarantees an optimized maximum search path 
and always remains balanced. CBTREE is optimized for speed. You will 
be using a commercial quality, reliable and powerful tool. CBTREE is a full 
function implementation of the industry standard B+tree access method 
and is proven in applications since 1984. 


Access any record or group of records by: 

- its absolute position in the index (GETFRST and GETLAST), 

- its relative location in the index (GETPRV, GETNXT and GETSEQ), 

* anexact match to a key (GETREC), 

* apartial match to a key (GETPAR, GETALL and GETKEYS) 

a lexical relation to a key (GETLT, GETLE, GETGT and GETGE). 

- You may also add, delete and update any record without the need to 
reorganize the index (INSERT, ISRTKY, DELETE, DELTKY and 
NEWLOC). 

« Block retrieval calls speed up sequential processing. 


Increase your implementation productivity. 
CBTREE is over 6,000 lines of tightly written, commented C source code. 
The driver module is only 20K and links into your programs. 


Port your applications to other machine environments. 

The C source code that you receive can be compiled on all popular Cc 
compilers for the IBM PC and also under Unix, Xenix, and AmigaDos! No 
royalties on your applications that use CBTREE. CBTREE supports multi- 
user and network applications. 


CBTREE IS TROUBLE-FREE, BUT IF YOU NEED HELP WE PROVIDE FREE PHONE SUPPORT. 
ONE CALL GETS YOU THE ANSWER TO ANY QUESTION! 
CBTREE compares favorably with other software selling at 2,3 and 4 times our price. 
Sold on unconditional money-back guarantee. 
YOU PAY ONLY $99.00 - A MONEY-SAVING PRICE! 
TO ORDER OR FOR ADDITIONAL INFORMATION 
CALL (703) 356-7029 or (703) 847-1743 
OR WRITE 


Peacock Systems, Inc., 2108-C Gallows Road, Vienna, VA 22180 
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Listing One (Listing continued, text begins on page 48.) 





xor al,al 
mov ah,4Ch 
int 21h 


output a hex word in decimal 


© Ye Fe te Ye 


CX,AX,DX destroyed 


, 





dec out proc. near 
xor Gx, Gx 
another: inc cx 
xor dx, dx 
div base sbase is 10 decimal! 
push dx ;remainder is less sig digits 
or ax, ax sis the quotient zero? 
jnz another ;if not, more number to convert 
print_dig: 
pop dx sretrive digit from stack 
add dl, *9" sascii offset 
call char_out 
loop print_dig sdo all of the digits 
ret 


dec out endp 


. 
, 


3 output a single character 

char_out proc. near 
mov ah,2 soutput char function 
int 21h sdo it 
ret 


char_out endp 


7 
’ 


update proc near 


mov ah, 2ch zget dos time 
int 21h shour in ch, mins in cl,secs in dh 
mov uper,cl 
mov secs,dh 
mov hnds,dl 
Mov al,ch 
| xor ah,ah 


call dec out 


time_print uper,':! 





ee 


time_print secs,':' 


time_print hnds,'.! 





crlf 
ret 
update endp 


End Listing One 


code ends 
end sqrt 


s es 
Listing Two 
Listing 2 
R32COMP.ASM - 32 bit sqr , compares CPU, NDP 


By Ray Mariella, 30 March 87 - increments the upper 16 bits 
0000:7FFF to FFFF: 7FFF 





Se Be te Me 


requires 8087 or 80287 
page 7 96 
-8087 


crit macro 
mov d1,13 
call  char_out 
MOV d1,10 
call char_out 
endm 





time print macro byte var, byte string 
local plenty 
mov dl, byte string soutput a colon or period 
call char_out 
cmp byte var,9 











ja plenty 
mov a1, *0* *space holder if var<l0 
call char_out 
plenty: mov al, byte var sminutes, secs, or hnds 
xor ah,ah 
call dec out 
endm 
data segment public 'DATA' 
even 
base dw 10 #base to print the numbers in 
BIGGUN dq ? 
rootp dd ? 
uper db ? 
secs db ? 
hnds db ? 
announc db ' 65535 increments of upper 16, CPU then 8087 *,23,20,.°§* 
data ends 
stack segment stack 
dw 64 dup(?) 
stack ends 
code segment public ‘CODE’ 


assume cs:code, ds:data, ss:stack 


sqrt: push bp 
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SE 


OOo 


mov ax,data 

mov ds,ax 

mov bp,offset biggun 
CrLt 

mov dx,offset announc 

mov ah,3 

int 21h 


Mov si,32767 
xor di,di 
goodies: call update 


sprint string function 
;DOS interrrupt 


. square root procedure via 8086, DI:SI 








CPU: MOv bx, 1 
mov  dx,dai 
MOV ax,si 
biggest: or dx, dx 
jz words 
rer dx,1 
rer ax,1l 
shl Dz,.2 
jmp short biggest 
words: or bx, Dx 
jnz checkem 
mov bx, 65535 
checkem: mov ax, ax 
mov cx, bx 
Logit: shl ex, 1 
jc average 
cmp cx, dx 
jae average 
shr dx,1 
mov ax,dx 
mov bx, CX 


jmp short logit 


. 
, 


square root via 8087 


xor di,di 
mov ds: (bp],si 


NDP: mov ds: (bpt2],di 
fild pbiggun 
fsqrt 
fistp rootp 
fwait 


inc di 

jnz NDP 
call update 
pop bp 

xor al,al 
mov ah,4Ch 
int 2ih 


output a hex word in decimal 
CX,AX,DX destroyed 


dec out proc near 


xor cx,Cx 
another: inc cx 
xor dx, ax 
div base 
push dx 
or ax, ax 
jnz another 
print dig: 
pop ax 


add d1,'0' 
call char_out 
loop print_dig 
ret 

dec_out endp 


output a single character 
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average: 
add bx, ax 
rer Bea 
Newton: 
REPT 2 
mov ax, si ;lower 
mov dx, di 
cmp bx, dx 
je quit 
div bx 
add bx, ax ;hnewton 
tCr bx, 1 
endm 
quit: inc di 
jz done 
jmp CPU 
done: call update 


; we now have an 8087 square root =rootp 


;guessl 
;gquess2 


supper 16/2 

slower 16/2 + carry from upper 
;gquessl*2 

snext is for guessl and guess2 16 bits 


;if all 32 were used, CF is set 
sin case all 32 bits were used 


sguess2 ax,dx 
s;guessl bx,cx 


+guessl 

snecessary for very large integers 
slarger than guess2? 

:if not, guess2/2 


;ready for averaging 
saverage value 


16 


:prepare for division, upper 16 in dx 


;needed for really BIG ints 
. " 


;ax still has target, bx first guess 


; if you need roots of 7FFF:FFFF and less, BIGGUN can be 32 bits, 
; and ROOTP can be a 16 bits. The extra length is needed here because 
; the 8087 does not expect unsigned integers. 


+8087 loads from memory, 
snot regs directly 


;put integer into 8087 stack 


store to memory, too 


sbase is 10 decimal! 

;remainder is less sig digits 
sis the quotient zero? 

;if not, more number to convert 


sretrive digit from stack 
sascii offset 


:do all of the digits 


(continued on next page) 


Pe a eee 











MetaWINDOW 


Product of the Month" 
"... @ technological tour de 
force for fast PC graphics." 


auto-cursor tracking 
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e multiple fonts 10 Point 12 Point 
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talic 


Display multiple bitmap or 
"filled-outline" fonts. 
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Listing Two (Listing continued, text begins on page 48.) 


char out proc near 
7 Mov ah, 2 soutput char function 
int 21h sao it 
ret 


char_out endp 


° 
’ 


update proc near 
mov ah, 2ch sget dos time 
int 21h shour in ch, mins in cl,secs in dh 
MOV uper,cl 
mov secs,dh 
mov hnds, dl 
mov al,ch 
xor ah,ah 


call dec_out 
time_print uper,':' 


time_print secs,':' 


we 





time print hnds,'.' 


crit 
ret 
update endp 
code ends 
end sqrt End Listing Two 
Listing Three 
Listing 3 





, R32fail.ASM - 32 bit integer test program REPT macros 
; looks for the first time that Newton fails 0,-1 
; By Ray Mariella, April 87 
page 796 
-8087 


CYLt macro 
mov dl, is 
call char_out 
mov qai,10 
call char_out 
endm 


time_print macro byte var, byte string 
local plenty 
mov dl, byte string ;output a colon or period 
call  char_out 
cmp byte var,9 


ja plenty 
mov dl, 'o* ;space holder if var<10 
call char out 
plenty: mov al, byte var ;minutes, secs, or hnds 
xor ah,ah 
call dec out 
endm 
data segment word public 'DATA' 
base dw 10 sbase to print the numbers in 
BIGGUN dq ? 
rootp dd ? 
contwd dw ? 
uper db ? 
secs db 2 
hnds ab” 2? 
announc db ‘incr. lower 16 from 1 ',13,10,'S! 
intermed db ' passed 65535 ren es 
data ends 
stack segment stack 
dw 64 dup(?) 
stack ends 
code segment word public 'code' 
assume cs:code, ds:data, ss:stack 
SQrC: push bp 
Mov ax,data 
mov ds,ax 
mov bp,offset biggun 
fclex ;clear 8087 exceptions, if any 
fstcw contwd :get control word 
and contwd,1111001111111111B ;round to nearest 
fldcw contwd ;load changed control word 
erlt 
mov dx,offset announc 
MOV ah, 9 sprint string function 
int 21h ;DOS interrrupt 


mov alesis 
call char_out 


herald: crit 


rolling: xor bx, bx 
xor ax,ax 
mov st, i slower 16, will vary 
mov ds: (bp],si ;BIGGUN lower 16 
mov dai,0 supper 16 


Mov ds: [bp+2],di 
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aie i tt, 


—— ae _ —————— 


ee ee a a a —— 


a tied — 








goodies: call 
Grit 
FILD BIGGUN 


start: 


update 


Square root procedure via 8086/V30 


mov 
mov 


REPT 8 

or 

jz 

Ter 

ber 

shl 

endm 

jmp 
halfway: jmp 





rest: 
REPT 8 


words: 





checkem: mov 


Lowit: 


average: 


Newton: 


done: mov 


cont: inc 


notyet: mov 
quit: call 


Gall 
mov 
call 
crlf 
pop 
xor 
mov 
int 
ret 


CX, AX, 


dec_out proc 


xOr 


another: inc 





Sey ee | 
dx, di 
ax, si 


ax, dx 
halfway 
ax, 
ax, 1 
Dx, 2 


short rest 
short words 


ax, ax 
words 
ax,1 
ax, 2 
bx, 1 


bx, DX 
checkem 
bx, 65535 


ax, ax 
Cx, Dx 


Cx; i 
average 
CX, Gx 
average 
dadx,1 
ax,dax 
bx, CX 


rootp 
bx,ax 
bx, 


2 

ax, Si 
dx, di 
bx, dx 
quit 
bx 
bx, ax 
bx ;1 


ax,Dx 


dx,word ptr ds: [bpt+8] 


ax, ax 
cont 
bx, ax 
quit 


bx 
bx, dx 
quit 


Coe 
notyet 
di 
ax,di 
dec out 


dx,offset intermed 


ah, 9 
21h 


ds: [bpt+2],di 
ds: [bp],si 
start 


update 
ax, ai 


- 
ax, Sl 
dec out 


bp 
al,al 
ah,4Ch 
2ih 


output a hex word in decimal 


DX destroyed 


near 
cx, CX 
cx 


slower 16 
;prepare for division, upper 16 in dx 
;for FFFE:0000 and up 


sax still has target, bx first guess 
;newton 


;guessl 
;guess2 


supper 16/2 
slower 16/2 + carry from upper 
;guessl*2 


supper 16/2 

;lower 16/2 + carry from upper 
;guess1*2 

;next is for guessl and guess2 16 bits 





zif all 32 were used, CF is set 
sin case all 32 bits were used 


;guess2 ax,dx 
;guessl bx,cx 


;guessl 
;necessary for 2000:4000 and up 
;larger than guess2? 


:if not, guess2/2 


;ready for averaging 


saverage value 





jax, and bx have approx. root 
;bpt+8 is rootp, 8087 root 
;see if rootp agrees 


;lower 16 





:biggun upper 16 
:biggun lower 16 








(continued on next page) 
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“The overall efficiency of my 
computer system was signifl- 
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William G. Harrington, 
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Vopt gives you faster hard disk 
access in seconds! 


When DOS creates a file, it 
scatters file fragments over the 
disk surfaces. It takes time to 
collect those fragments when you 
need the data, so your system 
runs slower and slower as your 
files grow more fragmented. 






Vopt organizes your files the way 
DOS should have written them-- 
contiguously--so file retrieval is 


easy and fast! 
$3 shipping/handling. 


$49.95 CA add 6% sales tax. 


GOLDEN BOW SYSTEMS 


2870 Fifth Avenue 
Suite 201 
San Diego, CA 92103 


619/298-9349 


Vopt operates with DOS systems, including 
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Vopt is a trademark of Golden Bow Systems. 
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Listing Three (Listing continued, text begins on page 48.) 


INTEGERS DONT FLOAT 





xor 
div 
push 
or 
jnz 


print dig: 


dec_out 


. 
, 


char_out 


char_out 


update 


update 


code 


pop 
add 
cai 
loop 
ret 
endp 


output 


proc 
mov 
int 
ret 
endp 


dx, dx 

base sbase is 10 decimal! 

dx ;remainder is less sig digits 
ax, ax zis the quotient zero? 

another ;if not, more number to convert 
dx ;retrive digit from stack 

dl, '0o' sascii offset 

char out 

print dig ;do all of the digits 


a single character from dl 


near 
ah,2 . ;output char function 
21h sdo it 


proc near 


mov 
int 
mov 
mov 
mov 


mov 
xor 
call 


ah, 2ch sget dos time 

21h shour in ch, mins in cl,secs in dh 
uper, cl 

secs,dah 

hnds,dl 


al,ch 
ah,ah 
dec out 


time_print uper,':' 


time_print secs,':' 


time_print hnds,'.' 


ert 
ret 
endp 


ends 
end 


Listing Four 
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Listing 4 


e 
, 


. 
’ 


crit 


RALL16 


sqrt 


- square roots of 1 to 65535 


By Ray Mariella, Nov 1986 


page 


macro 
MOV 
call 
mov 
call 
endm 


96 


dl,13 
char _out 
d1,10 
char_out 


time_print macro byte var, byte string 
local plenty 


plenty: 


data 
base 
uper 
secs 
hnds 
announc 
data 
stack 


stack 


code 


sqrt: 
erit 


ve 


mov 
call 
cmp 
ja 
mov 
call 
Mov 
xor 
call 
endm 


dl,byte string 
char_out 

byte var,9 
plenty 

di," 0* :space holder if var<10 
char_out 
al,byte var 
ah,ah 

dec out 


;output a colon or period 


;minutes, secs, or hnds 


segment word public 'DATA' 


even 


ends 


dw 10 :base to print the numbers in 
db ? 

db ? 

db ? 

db ‘square roots of 1 - 65535 ',13,10,'$' 


segment stack 


ends 


dw 64 dup(?) 


segment word public 'CODE' 


assume 
even 


mov 
mov 


mov 
mov 
int 
mov 
call 


cs:code, ds:data, ss:stack 


ax,data 
ds,ax 


dx,offset announc 


ah,9 sprint string function 
21h :DOS interrrupt 

d1,13 

char_out 











End Listing Three 


= 
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MS-DOS environment 


Thom Hogan 


Taming MS-DOS 
by Thom Hogan 


Taming MS-DOS takes you beyond the basics, 
picking up where your MS-DOS manual leaves 
off. You'll learn how to maximize your batch files 
with routines using redirection, filters and pipes, 
and routines that prevent accidental 
reformatting of your hard disk, redefine function 
keys, and locate files within subdirectories. 
You'll also learn how to create configurable 
AUTOEXEC.BAT files, and how to customize 
CONFIG.SYS and use ANSI.SYS to change the 
appearance of MS-DOS. Taming MS-DOS 
includes ready-to-use assembly language 
programs that enhance MS-DOS. 


The programs, including batch files and MS- 
DOS enhancements, are available on disk with 


-full source code. 


Book & Disk (MS-DOS) 
Item #59-3 $34.95 
Book item #24-0 $19.95 








This book and ready-to-use program demon- 
strate how to write a Unix-like shell for MS- 


programming languages as well. The book and 
— disk include a detailed description and working 





~ syntax, MS-DOS-compatible prompt support, C- 
 Shell-based shell scripts, and a Shell variable 














On Command: 
Writing a Unix-Like Shell for 
MS-DOS 


by Allen Holub 





NR: 
An Implementation of the Unix NROFF 
Word Processor 


by Allen Holub 





DOS, with techniques applicable to most other 


NR is a text formatter that is written in C and 
compatible with UNIX’s NROFF. Complete 
source code is included in the NR package so 
that it can be easily customized to fit your needs. 
NR also includes an implementation of the -ms 
macro package and an in-depth description of 
how -ms works. NR does hyphenation and 
simple proportional spacing. It supports 
automatic table of contents and index 
generation, automatic footnotes and endnotes, 
italics, boldface, and more. NR also contains: 
extensive macro and string capability; number 
registers in various formats; diversions and 
diversion traps; input and output line traps. 


version of the Shell, complete C source code, a 
thorough discussion of low-level MS-DOS inter- 
facing, and significant examples of C program- 
ming at the system level. 

Supported features include: read, aliases, his- 
tory, redirection and pipes, Unix-like command 





that expands to the contents of a file so a 
program can produce text that is used by Shell 
scripts. The Unix-like control flow includes: if/ 
then/else; while; foreach; switch/case; break; 
continue. 


NR is easily configurable for most printers. Both 
the ready-to-use program and full source code 
are included. For PC compatibles. 


The ready-to-use program and all C source code 
are included on disk. For IBM PC and direct 
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Item #29-1 $39.95 





Software Tools 


FOR THE PROFESSICNAL PROGRAMMER 





Receive a FREE MUG 
When You Order This 
ts Special Holiday Package! 


by Allen Holub 
When used with the Shell, this collection of utility 
programs and subroutines provides you with a 
fully functional subset of the Unix environment. 
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date: du; echo; grep; ls; mkdir; mv; p; pause; 
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than 220 routines complete with source code, 
sample programs and documentation. Routines 


_. are organized and documented under the 


following categories: bit manipulation; file 
management; MS-DOS support; sorting routines 
and spline integration; string operations; and 
more! 





A detailed manual includes a description of 
each routine, an explanation of the methods 
used, the calling sequence, and a simple 


example. Source code is included. For MS-DOS 
systems. 


Manual & Disk (MS-DOS) 
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procedures for performing all the arithmetic 
operations and necessary real functions with 
complex numbers. Each procedure is based on 
predefined constants and types. By using these 
declarations, the size of arrays are easily 
adapted. Each type declaration is a record with 
both a real and an imaginary part. Use these 
procedures to build more sophisticated functions 
in your own programs. TURBO Advantage 
Complex also demonstrates the use of these 
procedures in routines for vector and matrix 
calculation with complex numbers and 
variables; simultaneous Fourier transforms; 
calculations of convolution and correlation 
functions; and more. 


Source code and documentation included. For 
MS-DOS systems. Some of the TURBO 
Advantage Complex routines are most 
effectively used with routines contained in 
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includes an easy-to-use form processor, 30 Turbo 
Pascal procedures and fuctions to facilitate 
linking created forms to your program, full 
source code, and documentation. For MS-DOS 
systems. Some of the TURBO Advantage 
routines are necessary to compile TURBO 
Advantage Display. 


Manual & Disk (MS-DOS) 
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B+ + trees; window management tips; and 
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_ programs are on disk for MS-DOS systems. 
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Book only 
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call update 


Mov cx, 65535 

; square root procedure via 8086, integer in cx 

poundit: mov ax,1 ;infimum - will be lower bound 
MOV dx, Cx -;supremum - will be upper bound 


; the next section gets the max lower bo 


shl ax,l 
cmp ax, dx 
ja root 
shr dx, i 
mov bx, dx 
mov si, ax 
ENDM 

root: add bx, si 
shr bx, 1 
mov ax, Cx 


und and the min upper bound 


smpy infimum by 2 

sabove supremum ? 

; then done 

sif not, div supremum by 2 
sstore supr. 

;store infim. 


-get avg. of bounds for 
:first guess of root 


: Newton's Method “> X = (Xo + N/Xo)/2 


Newton: 
xor dx, dx :prepar 
div bx sax sti 
add bx, ax ;nhewton 
shr bx, 1 


; we now have a square root in bx 


; 
sto print, remove the next 8 semicolons 
3 mov ax, Cx 


call dec out 
; mov dl,* ! 
; call char_out 
; Mov ax, Dx 
; call dec out 
; crlf 
didit: loop boundit 
done: call update 
crlf 
xor al,al 
mov ah,4Ch 
int 21h 
; output a hex word in decimal 
CX,AX,DX destroyed 
dec out proc near 
xor Cx, CX 
another: inc ex 
xor dx, dx 
div base 
push dx 
or ax, ax 
jnz another 
print_dig: 
pop dx 
add dl, '0' 
call char_out 
loop print dig 
ret ~ 
dec out endp 
output a single character 
char_out proc near 
Mov ah, 2 
int 21h 
ret 
char_out endp 
update proc near 
mov ah, 2ch 
int 21h 
mov uper,cl 
mov secs, dh 
Mov hnds, dl 
MOV al,ch 
xor ah,ah 
call dec out 
time print uper,':' 
time_print secs,':' 
time_print hnds,'.' 
erlft 
ret 
update endp 
code ends 


end sqrt 
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e for division 
11 has target 


ibase is 10 decimal! 

;remainder is less sig digits 
sis the quotient zero? 

;if not, more number to convert 


sretrive digit from stack 
sascii offset 


:do all of the digits 


soutput char function 
sdo it 


;get dos time 
shour in ch, mins in cl,secs in dh 


End Listings 


SQL Compatible Query System adaptable to any 
operating environment. 


CQL Query System. A subset of the Structured 
English Query Language (SEQUEL, or SQL) 
developed by IBM. Linked files, stored views, 
and nested queries result in a complete query 
capability. File system interaction isolated in an 
interface module. Extensive documentation 
guides user development of interfaces to other 
record oriented file handlers. 


Portable Application Support System 


Portable Windowing System. Hardware 
independent windowing system with borders, 
attributes, horizontal and vertical scrolling. 
User can construct interface file for any 
hardware. Interfaces provided for PC/XT/AT 
(screen memory interface and BIOS only 
interface), MS-DOS generic (using ANSI.SYS), 
Xenix (both with and without using the curses 
interface), and C-library (no attributes). 


Screen 1/0, Report, and Form Generation 
Systems. Field level interface between 
application programs, the Query System, and 
the file system. Complete input/output 
formatting and control, automatic scrolling on 
screens and automatic pagination on forms, 
process intervention points. Seven field types: 
8-bit unsigned binary, 16 bit signed binary, 16 
bit unsigned binary, 32 bit signed binary, 
monetary (based on 32 bit binary), string, and 
date. 


Including Source Code 
$395.00 


File System interfaces include 
C-tree and BTRIEVE. 


HARDWARE AND FILE SYSTEM 
INDEPENDENT 


MACHINE 
INDEPENDENT 

SOFTWARE 
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(703) 435-0413 


*C-tree is a trademark of FairCom 
IBM, SEQUEL, PC, XT, AT are trademarks of IBM Corp. 
MS-DOS and Xenix are trademarks of Microsoft Corp. 


CQL and the COL logo are trademarks of 
Kurtzberg Computer Systems. 
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Listing One (Text begins on page 54.) 


Listing 1 





/* POPWIN.I: Routines for pop-up windows 
/* Externally defined are gotoxy(), wrtcha(), window(), chattr(), 


{* and videomode(). 

/* Notes: Programmer is responsible for assuring that the pop-up 

[* defined in the POPDESCR structure is large enough to 

/* contain the text. 

/* Save your cursor position before calling these routines. 

{* They don't preserve or restore caller's cursor. 

/* Unlike menubar, the POPDESCR structure doesn't contain a 

E= pointer to the text elements. Thus, you can use the 

/* routines to create dialog boxes and help windows. 

FA es cinema narra gleniearinreny eau maaan mate tail th ism aia es tng tions aaa te Salaam ener ita abs tin Gee en Oe 

typedef struct { /* window descriptor/control structure 
int left, top, right, bottom; /* window location, inclusive 


char textAttr; 
int border; 
} POPDESCR; 


/* text attribute in window 
/* 0 = none, 1 = single, 2 = double 


static bord[][6] = { 
{ 296, 1°79, 
(205, . 86; 


/* border characters 
218, 
201, 


L3t; 
187, 


217, 
188, 


192}, 
200 } 
bs 


void popMake (POPDESCR 


*win) /* create pop-up window 
/* Must initialize the 


POPDESCR structure before calling. 

/* Does not write text to the window, but only creates it. After 
/* this fen returns, you can write text using popPuts() and 

/* control the cursor with popxy(), both given below. 

{ 

int x, y, style, a; 


a = win->textAttr; 
window (win->left, win->top, win->right, win->bottom, 


win->textAttr) ; /* open window 

if ((style = win->border-1) >= 0) { /* draw border outside 
gotoxy (win->left-1, win->top-1, 0); 

wrtcha (bord [style][2], a, 0); /* corners: upper left 
gotoxy (win->right+1l, win->top-1, 0); 


wrtcha 
gotoxy 
wrtcha 
gotoxy 


(bord [style][3], a, 0); 
(win->right+1l, win->bottomt1, 0); 
(bord [style][4], a, 0); 
(win->left-1, win->bottom+1, 0); 
wrtcha (bord [style][5], a, 0); 
for (x = win->left; x <= win->right; x++) { 
gotoxy (x, win->top-1, 0); 
wrtcha (bord [style][0], a, 0); 
gotoxy (x, win->bottomtl, 0); 
wrtcha (bord [style][0], a, 0); 
} 
for (y = 
gotoxy 
wrtcha 
gotoxy 
wrtcha 
} 


/* upper right 
/* lower right 


/* lower left 
/* horizontals 


win->top; y <= win->bottom; y++) { /* verticals 
(win->left-1, y, 0); 
(bord [style][1], a, 
(win->right+1l, y, 0); 


(bord [style][1], a, 0); 


0); 


} 
gotoxy (win->left, win->top, 0); 


} R eww ww ew ee ee eee eee SOK 


void popScroll (POPDESCR *win) /* scroll pop up one line 
{ 
winScroll (win->left, win->top, win->right, win->bottom, 
win->textAttr) ; 
gotoxy (wherex (0), wherey (0 
b LE ae een en sienssses af 
void popxy (int x, int y, POPDESCR *w) /* gotoxy for popup window 
/* Allows you to express text coordinates relative to upper left 
/* corner of the window in video page 0 
{ 
int 


- 1, 0)? 


row, col; 

row = w->top + y; 

col = w->left + x; 

gotoxy (col, row, 0); 
ie és 
void popPuts (int x, int y, char string[], 


/* write string to 


POPDESCR *win) /* specified window 
{ 
int len, ch, p; 
popxy (x, y, win); /* position cursor in window 
len = strlen (string); 
for (ch = 0; ch < len; cht++) { 
if (string [ch] == '\n') { /* handle newline 
x= Q; 
#+tY5 
popxy (x, y, win); 
if ((y + win->top) > win->bottom) { /* scroll if required 
popScroll (win); 
} 
} else { 
if ((x + win->left) > win->right) { /* outside window 
x = 0; /* so wrap cursor 
++y; 
popxy (x, y, win); 
if ((y + win->top) > win->bottom){ /* scroll if required 
popScroll (win); 
} 
} 
wrtcha (string [ch], win->textAttr, 0); /* write next char 
++X; 
; popxy (x, y, win); /* advance cursor 
} 
} [* eennnnnnn--------------- */ 
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*/ 
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char *saveScrn (void) /* saves screen image 
/* Call this routine before popMake(). It saves the current screen 


/* image at a location pointed to by the returned value. You must 
/* pass the same pointer back to restScrn() later in order to 

/* make the pop-up go away. 

{ 

int Cc; 

unsigned srcSeg; 

char *saveArea; 


SaveArea = (char *) malloc (4096); 
if (videomode (&c) == 7) 
srcSeg = 0xB000; 
else 
srcSeg = 0xB800; 
movedata (srcSeg, 0, 
return (SaveArea); 
} /* 
void restScrn 
/* 
/* 
/* 
/* 
/* 
{ 
int es 
unsigned destSeg; 


/* allocate space 
/* &monochrome buffer 
/* &text graphics buffer 


(unsigned) saveArea, 4096); /* save 
/* return pointer 


_SS, 


(char *saveArea) /* restores screen image 

Call this routine when you want the pop up window to go away. 

It restores the screen to its appearance before the window. It 
does NOT restore the cursor. That is your responsibility. 

This routine does not worry about snow on IBM's poorly designed 
CGA board. Snow may result when restoring the screen. 


if (videomode (&c) == 7) 
destSeg = 0xB000; 
else 
destSeg = 0xB800; /* text graphics buffer 
movedata (_SS, (unsigned) saveArea, destSeg, 0, 4096); /* restore 
free (saveArea) ; /* de-allocate space 


/* g&monochrome buffer 


af 
sf 


*} 
“/ 
“/ 
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wy 
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End Listing One 


e e 
Listing Two 
Listing 2 
/* MENUBAR.I: Constructs a menu bar per MENUBARSPEC structure 


/* Externally defined are activepage(), videomode(), wrtstra() 
/* Notes: Preserve your cursor position before calling this fen. 


/* It does not save or restore caller's cursor. 
/* The 'sel' pointer points to a solid string of menu 
is selections in the form "sell\0sel2\0sel3\0...seln\0" 
Fe es re ps res ete es ss es es see ee Cass ess sen oe ei es ee dew ee eee se ee 


typedef struct { 


int background, foreground; /* colors used in menu bar 
int nsels; /* number of selections 
char *sel; /* pointer to static selections (see above) 


} MENUBARSPEC; /* caller sets up as many as needed 


/* does not remember previous cursor position 


void menubar (MENUBARSPEC *spec) 
{ 
int 


p, i, ncols, start, interval, page; 
char 


attr; 


page = activepage (); 
videomode (&ncols) ; /* get screen width 
gotoxy (0, 0, page); /* go home 
attr = chattr(spec->foreground, spec->background); /* attributes 
for (p = 0; p < (ncols-1); ptt) { 
wrtcha (' ', attr, page); 
gotoxy (wherex (page)+l, 0, page); 


/* get active page 


/* blank menu bar 
/* advance 


interval = ncols / spec->nsels; 

start = i = 0; 

for (p = 0; p < spec->nsels; ptt) { 
gotoxy (start, 0, page); 
wrtstra (&(spec->sel[i]), attr, page); 
i += strlen (&(spec->sel[i])) + 1; 
start += interval; 


/* spacing between entries 


/* write selections 
/* place cursor 


/* find next string 


/* next position for entry 


} 


a 
*/ 
=e 
=/ 


ai 
“F 


“/ 


my 
*/ 


“/ 
*/ 


End Listing Two 


Listing Three 
Listing 3 


/* MENUDEMO.C: Demonstrates principles of menu bars and pop-down 


/* menus in Turbo C 

/* Ce Oe ee 
/* INCLUDES */ 

#include <dos.h> 

#include <video.i> 

#include <colors.h> 

#include <menubar.i> 

#include <popwin.i> 

/* LOCAL FUNCTION PROTOTYPES */ 


void popFileMenu (POPDESCR *mfile, char *text); 
void popEditMenu (POPDESCR *medit, char *text); 


*/ 
=F J 
ny. 


(continued on page 108) 
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replays. . _ 
Building a Demo or Tutorial is easy. Just run 
any program nstant Replay” and insert 
explanation pop-up windows, prompts, user 
involvement, music and so on. Instant Replay” 
remembers everything; it builds a demo that 


will re-run the actual program or a screens 
only prototype version. 

Instant Replay” includes a Screen Maker 
for building pop-up windows, prototype win- 
dows, and menu windows. Other useful tools 
include a Prototyper, Keystroke Editor, Music 
Maker, Menu Maker, Presentation Text Editor, 
Control Guide, and Insertion Guide. 

The screen editor Screen Genie “ is de- 
signed to be memorized by Instant Replay. ” 
Creating animations is easy and fun; just run 
Screen Genie™ and memorize your activity. 

Instant Replay “ for |BM and True Compat- 
ibles, requires DOS 2.0 or greater. Instant 
Replay ” is not copy protected. There areno 
royalties required for distribution of 
Demos. 


instant Replay” at $149.95 is an exciting 
new product. Because of the quality of this 
product, Nostradamus® provides a 60-day 
satisfaction money back guarantee. Call or 
write, we accept VISA, AmEx, C.O.D., Check 
or P.O. with orders. Demo diskettes and free 
product brochure available. 
Nostradamus, Inc. 3191 S. Valley Street, 
(ste. 252) Salt Lake City, Utah 84109 
voice (801) 487-9662 
Data/BBS 801-487-9715 1200/2400,n,8,1 
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Music Maker 
Text Editor 
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Screen Painter 

Magic Demo Animator 
Dynamic Menu Maker 


Memorize and Replay actual programs 


Memorize and Replay screens only 
Insert: prompts, pop-ups, prototypes, 
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reviewing 

Generate Vapor Ware from actual 
programs 


Resident Screen Painter for creating and 
grabbing windows on the fly 
Prototyper that includes slide shows, 
menus, and nesting 


Keystroke/time editor, inserter, and 
merger 


Replay chaining and linking 
Modular demo making facilities 
Fast forward and single step modes 
Self Made Tutorial included 

Timed Keyboard Macros 


Numerous and powertul operator input 
options for Tutorials 


Text File Presentation facility 
Transparent Windows 

Change Defaults 

Foreground or Background Music 
Canned special sound effects 
Unlimited replay branching 
Compressed screens 

Object oriented programming 
Tracking editor 

Plus much more . . 
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“Instant Replay” is one of those 
products with the potential to go from 
unknown to indispensable in your 
software library.” PC Magazine 


“Incredible . . . We built our entire 
Comdex Presentation with Instant 
Replay. ”” Panasonic 


“Instant Replay ” 
brings new flexibility to prototypes, 
tutorials, & their eventual implemen- 


tation.” Electronic Design 


ighly recommend Instant Replay. "” 
uter Language 


Instant Replay” » 
Instant Assistant™ 
Screen Genie” 
Word Genie™ 
NoBlink Accelerator’” 
Assembler Genie™ 
DOS Assistant™ 


Programming Libraries 
Supports Turbo Pascal 4.0, Turbo C, MS Quick C 


HardRunner'” 


...and more 











Listing Three 
(Listing continued, text begins on page 54.) 
popMake (mfile); 


popPuts (0, 0, text, mfile); 
getch (); 


/* STATICS FOR PROGRAM */ 

char entries[] = {"File\0Edit\0Browse\0Reports\0Exit\0"}; 
MENUBARSPEC menuspec = {{BLUE}, {WHITE}, {5}, {&entries}}; 
char fileMenu[] = {"Open\nSave\nNew file\nAbandon"} ; 

char editMenu[] = {"Select record\nRemove field\nAdd field"}; yf 
[S iccapeaanl pecan ca «/ void popEditMenu (POPDESCR *medit, char *text) 
{ 

char *prevScrn; 


{ 
static POPDESCR filePop = {{1}, {2}, {8}, {5}, {0}, {2}}:; 


POPDESCR editPop; prevScrn = saveScrn (); 
char *prevScrn; popMake (medit); 
int n, Oldx, oldy, cols; popPuts (0, 0, text, medit); 
getch (); 
/* SET UP POP-DOWN MENU FOR FILE SELECTION */ restScrn (prevScrn); 
filePop.textAttr = chattr (YELLOW, BLUE); } [Ree ween nn nnn nn nnn nnn xf 


/* SET UP POP-DOWN MENU FOR EDIT SELECTION */ 

editPop = filePop; 

editPop.left = 80 / menuspec.nsels + 1; 

editPop.right = editPop.left + 12; 

editPop.bottom = editPop.top + 2; aa 
End Listings 
/* NOW SHOW THE TWO MENUS IN SUCCESSION */ 

setmode (3); 


cls (); 

menubar (&menuspec) ; /* write menu */ 
printf ("\nActive page is td", activepage()); /* show video info */ 
printf ("\nVideo mode is %d", videomode (&cols)); 

printf ("\nNumber of columns on screen is %d", cols); 

oldx = wherex (activepage()); 

oldy = wherey (activepage()); 

printf ("\nCursor is at x = $d, y = %d", oldx, oldy); 

gotoxy (oldx, oldy, activepage()); 

getch (); /* wait for keypress */ 
cursot® () >: 


popFileMenu (&filePop, fileMenu) ; 
popEditMenu (é&editPop, editMenu) ; 
setcursor (0, cursend()); 

gotoxy (oldx, oldy, activepage()); 


/* pop down file menu */ 


/* make a block cursor */ 


puts ("\nPress any key to end demo..."); 

getch (); 

setcursor (cursend()-1, cursend()); /* restore underline cursor */ 
cls' (); 

/* anew es Gen i on as Geen Gn oe en een en eee *x 


/ 
void popFileMenu (POPDESCR *mfile, char *text) 
{ 


char *prevScrn; 
prevScrn = saveScrn (); 
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Listing One (Text begins on page 126.) 


Listing 1 -- kernel.h, Printed 9/11/1987 





l fndef NULL 
2| #include <stdio.h> 
3| #endif 
4| #include <tools/pq.h> 
5| 
6 | /* Error codes */ 
7| #define TE NOERR 0 /* No error */ 
8| #define TE TOOMANY -1 /* Maximum number of tasks (32) already exists */ 
9| #define TE NOMEM -2 /* Insufficient memory available s/ 
10| #define TE BADARG -3 /* Illegal Argument */ 
11| #define TE TIMEOUT -4 /* Timeout af 
12| #define TE QFULL -5 /* Queue is full */ 
13| #define TE NOTASKS -6 /* No tasks to send message */ 
14| #define TE INTERNAL -7 /* Internal error a/ 
15| #define TE DEADLOCK -8 /* Delete would have caused a deadlock. *y 
16| #define TE STACK -9 /* Stack overflow */ 
17| #define TE KILL -10 /* Ctrl-Break encountered x / 
18] 
19| #define TS NORMAL 0 /* Must be 0 */ 
20| #define TS WAIT 1 
21| #define TS TIMEOUT 2 
22| 
23| #define T MAXTASK 32 /* Max. number of tasks that can be active ay 
24| #define TQ SIG OxaSaS5 /* Signature used for queues to test validity */ 
25| 
26| /* PRIORITY(a,b) evaluates to a neagive number if task a is lower priority 
avi. * than task b, to 0 if they're equal, to a positive number 
28| * if task a is higher priority than task b. If priorities 
2o{ * are the same, the timestamps are compared and the routine 
30} * with the smaller (older) time stamp is assumed to be the 
31) * higher priority. 
32) *Z 
33| 
34| #define T_PRIORITY(a,b) ( ((a)->priority != (b)->priority) \ 
35| c 2 (a)->priority - (b)->priority \ 
36| : (b)->timestamp - (a)->timestamp ) 
ar 
38 | [Bannan nn nn nn nn nn en nn nn ne $5 +--+ 5 + + 5-5 +--+ 
39| * Task Control Block. Do not change the register-save area 
40| * (ax, bx, cx ... ) without also changing the code in swap.asm. 
41| * Don't change anything without changing the offset to the stack 
42| * base in chkstk.asm. 
43| * 
44| * I'm assuming the small model here. That is, I'm assuming that 
45| * the only segment register that can change is the extra segment 
46| * and that the stack and data segments always have the same value. 
47| * 
48| * Be sure to block() if you're going to modifiy the CS, DS, or.Ss 
49| * registers. 
sO| * 
Sl| * A context swap is done by pushing the registers in the following 
S21 * order: 
S35}. * flags,cs,ip, ax, bx, cx, dx, si, di, bp,ds,es 
24} * 
55|  * Then, the current stack pointer is saved in the TCB. Context is 
56| * restored by popping es,ds,bp,di,si,dx,cx,bx, and ax, and then 
57|  * restoring the flags, cs, and ip with an iret instruction. 
261. */ 
59] 
60| typedef struct tcb 
61] { 
62 | void ** 8p; /* Must be first and must be 16 bits */ 
63 | unsigned SS; /* Must be second & must be 16 bits */ 
64| 
65 | unsigned priority; /* priority O=lowest, 65,535=highest */ 
66 | unsigned long timestamp; /* Clock tick when task was preempted. */ 
67) 
68 | unsigned wait; /* Counting semaphore used by tasks that 
69 | * are waiting at a queue. Set to initial 
70| * timeout value and decremented on each 
71) * clock tick. Task is put back into 
72 | * the active list if semaphore gets to 
73 | * 0. If wait < 0, task will not time out. 
74 | a A 
75| 
76| struct tcb *next; /* Pointer to next task waiting at queue. */ 
ria 
78 | int status; /* TS NORMAL Not suspended by wait. 
79 | * TS WAIT Suspended by wait 
80 | oF 
81] 
82 | void *msg; /* Dequeued message if task was waiting 
83 | * for a message. NULL if task timed out. 
84 | id 
85| 
86 | /* The following are handy for debugging */ 
87 | /* but aren't used for anything else af 
88 | char *tag; /* Identifying string of some sort a/ 
89| void **initial sp; /* Initial stack pointer a] 
90} 
91] void *stack[1]; /* First cell of stack. Must be last 
92 | * thing in the structure. Must be declared 
93 | * as pointer-sized for t_create(). 
94 | oc 
95:[' -} 
$6| TCB; 
97| 
98| typedef struct t_queue 
99] { 
100| int signature; /* Signature */ 
101] struct t_queue *next; /* Next queue in chain. as 
102| TCB *task_ h; /* Head (start) of task list. x/ 
103| TCB *task t; /* Tail (end) of task list. */ 
104} int q_size; /* Maximum number of elements */ 
105| int numele; /* # of elements currently in queue */ 
106} void **headp; /* Head pointer =/ 
110 





(continued on page 113) 
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CIRCLE 186 ON READER SERVICE CARD 








ALL GAIN, 





OS/286"™ & OS/386™ Benefits: 
¢ Gain multi-megabytes of direct- 


big programs run faster ly aecerinei memory (15-Mb- 
286, 4Gb-386 
in protected mode 


¢ Increase performance by elimi- 
nating overlays and EMS 

¢ Convert in days, not months 

¢ Continue to work with a DOS 
interface and use existing TSRs, 
device drivers, graphic routines, 
etc. 

¢ Stay compatible with the widest 
array of systems 


A.I. Architects Software Devel- 
opers Kit $495 
includes full support for: 
¢ MetaWare High C (16 & 32 bit) 
¢ Professional Pascal (16 & 32 bit) 


Gain the benefits of protected 
mode the easy way with OS/286™ 
and OS/386™. These tools for C, 
Fortran, Pascal and Assembly 
language programmers permit 
rapid conversion of existing DOS 
applications from “real” 8086 
mode to “protected” 286 and 386 
mode. They don’t replace or mod- 
ify DOS, but extend it to protected 
mode. 
































OS/286 and OS/386 are the only 
DOS extenders that span both the 
286 and 386 processors, with 32- 
bit capability today on 386s that © 
yields twice the performance of 
16-bit mode. OS/286 and OS/386 | 
have quickly become the prefer- 
red solution for developers of high 


performance, memory-intensive ¢ Lahey F77L FORTRAN 
appucaaons, including CAD KEY, ¢ Microsoft C & Fortran 4.0, 
sesh vices etigagn HovOaISUA  MASM, MS-Link 
Lahey and Metaware. * Phoenix PLINK86 

¢ Halo & GSS Graphics 


Our optional TOUCHDOWN ™ 
BIOS supplement provides fast 
and reliable protected mode oper- 
ation on any 286 system, even 
those with problems resetting the 
286. (Ever notice how few existing 
machines Operating System/2 oe . rere Ba 
runs on?) a a : 3 re 


¢ Pharlap 386: ASM/LINK 
more to come 


Run time licenses for OS/286 
and OS/386 are available at 
nominal cost. 





If your applications are run- 
ning out of memory or need more 
speed, don’t wait for the “solu- 
tion” that means abandoning 
your investment in DOS. 
Enhance them now. with 


CEN * dee 
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The HummingBoard™ 
turns any XT or AT into the fastest 386 
system available. The dual processor 


architecture boosts performance sig- 

OS/286 and OS/386 — products nificantly over comparable single 
not promises. processor systems or accelerator 
- . boards. Available with 2 to 24Mb 


i RAM, 16 or 20Mhz speed, and 387 
Arch itects : nc. floating point coprocessor. 
One Kendall Square, Building 400 


Cambridge, Massachusetts 02139 
(617) 577-8052 


OS/286, OS/386 and HummingBoard are trademarks of A_I. Architects, Inc., High C and Professional Pascal are 
trademarks of Metaware, Inc., F77L FORTRAN is a trademark of Lahey Computer Systems, Inc., Microsoft and MS-DOS are trademarks of Microsoft Corp. 
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Listing One (Listing continued, text begins on page 126.) 





107| void **ktailp; /* Tail pointer a / 
108 | void *queuve[1]; /* First cell of actual queue. 
109] * Must be at the bottom of the 
110] * structure. 
ded) x / 
112! } 
113| T QUEUE; 
114} 
115| /*---------------------------------------------------------------------- 
116}. * Global variables. Actually declared in globals.c. I'm assuming 
117| * the default initialization to 0 here. These may be used by 
128 |. * your programs (T clock and T numtasks are useful) but should 
119| * never be modified by them. It's safest to block while 
120| * accessing them. 
Zit - *Z 
122] 
123| #ifdef ALLOC 
124| # define CLASS 
125| # define I(x) x 
126| #else 
127| # define CLASS extern 
128| # define I(x) 
129| #endif 
130} 
131| CLASS PQ *T tasks I(=0); /* Priority queue of tasks that are waiting aa d 
132 | /* for service. See /src/tools/pq.c for priority */ 
TSr /* queue routines and definition of PQ. x/ 
135| CLASS TCB *T_active I(=0); /* Pointer to currently active task. NULL if 
136| * multitasking is off or if no tasks are active 
137] * (this latter is a deadlock). 
138 | “ 
139| 
140| CLASS unsigned long T_ clock I(=0); 
141} 
142 | /* Incremented on each system clock tick. If you 
143 | * assume the default 18.2 ticks/second, 
144| * the clock will roll over after about 
145 | * 65552 hours (about 7.47 years): 
146} * 
147 | * ((Oxfffffff£/18.2) /60) /60 == 65552 
148} * 65552 / 24 /365.35 == 7.47798 
149] . 
150} * Of course, this number will scale with faster 
151] * tick rates but the resolution should be ok for 
152] * all reasonable tick rates. 
153 | x] 
154| 
155| CLASS T QUEUE *T_queues I(=0); /* Pointer to head of linked list of queues. */ 
156| CLASS int T _numtasks I(=0); /* Total # of tasks that have been created. */ 
Lost 
158 | /* nnn n nn nn nn a nn nn nn + +--+ + = - = = - == == = -- 
159| * Function prototypes. You should never call any of the t xxxx 
160| * functions directly. ~ 
L6it ..*7 
162| 
163| extern T QUEUE *t_makequeue (int size ): 
164| extern int t_ send (T_QUEUE *q, void *msg ); 
165| extern void *t_wait (T_QUEUE *q, int timeout ); 
166| extern int t_yield (void ): 
167| extern int t_perror (char *str, int errcode ); 
168| extern int t_start (int factor ): 
169] extern TCB *t_create (int (*subr)(), char* tag, unsigned pri, 
170| int: stk. $i26,....): 
171| extern int t_chg priority (TCB *tp, int new priority ); 
172| extern int t_delete (TCB *task )3 
173| extern int t_print (TCB *task )? 
174| extern void t_stop (int exit code )s 
175| extern int t_second (void . ): 
176| extern void 4 __swap (TCB *old, TCB *new ): 
177| extern void _t_install (TCB *new )3 
178| extern void _t_shazam (void ); 
End Listing One 

e 6 

Listing Two 
Listing 2 -- schedule.asm, Printed 9/11/1987 

1| PAGE 56,132 

2| TITLE SPEEDUP.ASM: System-clock-modification routines 

Oo | peewee ies eee ee 

4| 

5| DEBUG equ 1 ; Set to 1 to make internal symbols public for 

6 | ; debugging. 

7| 

8| DOSPEED equ 1 ; Set to 0 to disable everything except 

9| ; global-variable initialization in speedup. 


NNPRPRPRPRPRPRPRPRP 
POW MINUBWNHHO 


22 | 


: Public Subroutines are: 


* t_cli() 
; Disable Interrupts 
s E-setit) 
; Enable Interrupts 


t_speedup( factor ) 
; int factor; 


(continued on next page) | 
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find the first error. However, when you fix that error Turbo 
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recompiling! 


Tmark creates image files on disk to save and restore 
Turbo’s state during a compilation. Saves are made 
automatically before compiler errors or at lines desig- 
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Tmark dramatically reduces debug time. Once you try it 
you will never want to give it up! $80 + $2 s/h, Visa/MC 
TANGENT DESIGNS 
PO Box 896, Lake Forest, IL 60045 
(800) 356-2750, (312) 295-0030 


CIRCLE 188 ON READER SERVICE CARD 


PLOT TEXT ON 
ANY GRAPHICS SCREEN! 


YES, we sald ANY Graphics Screen, even VGA! 
FINALLY! Xgraf Is a super set of smart low level 
assembly graphic routines thai you call direct- 
ly from Compiled BASIC. Xgraf repiaces BASIC’s 
contusing graphics statements with consistent, 
full featured calis specifically designed for the 
BASIC programmer. 
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Listing Two 
(Listing continued, text begins on page 126.) 





231 2 Speed up the system clock by the indicated factor 
24| ; (1, 2, 3, 4, etc.). Call the scheduler 
251 2 on every timer interrupt and call the default clock 
261 : routine as well every “factor" ticks. For example, 
271 7 speedup( 2 ) speeds up the system clock by 
281; 3 a factor of two; the normal interrupt-service 
29)|.2 routine that's used by DOS will be called every- 
301 : other tick. A speedup factor of 1 or 0 doesn't modify 
31] ;: the clock rate. 
32| ; 
33| ; _t slowdown () 
341 >; 
351.3 Restore the clock to the normal speed and disconnect 
36) 3 the routine installed with a previous speedup() call 
371 3: (4f one is installed). 
38 | pm rr nr rn rn rn rn rn rn rn rn eer enn rene secssssoo- 
39] ; 
40| ; t_block() 
411 ; t_release() 
42| : 
431.3 Disable the scheduler but not the normal clock interrupt. 
44| ; The default system interrupt-service routine is processed 
45} 3 in the normal way, on every Nth clock tick. Use these 
46| ; routines carefully. If they're used in a tight loop, it's 
47| ; possible that ALL timer interrupts will be ignored, even 
48| ; if the processor is released for a while inside the loop. 
49| ; In this situation sti() and cli() are better. 
50! ; 
SL) ser rr rr ren rn er nnn nnn re en en nnn ee renee nnn nner ee--—= 
$2] : long numint(); Number of unblocked interrupts. 
53| :s long numblk(); Number of blocked interrupts. 
54 | 
55] 
56] _TEXT SEGMENT BYTE PUBLIC ‘CODE’ 
57| "TEXT ENDS 
58| DATA SEGMENT WORD PUBLIC ‘DATA’ 
59| DATA ENDS 
60| CONST SEGMENT WORD PUBLIC 'CONST' 
61| CONST ENDS 
62| BSS SEGMENT WORD PUBLIC ‘BSS' 
63| (BSS ENDS 
64| DGROUP GROUP CONST, _BSS, _DATA 
65 | ASSUME CS: (TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP 
66] 
67| EXTRN __chkstk:NEAR 
68| EXTRN t reschedule:NEAR 
69| EXTRN —T_active:WORD 
70) 
V1| s------------------=------------------------------------------ 
72\ 
73| TIMR_CTRL = 43H : address of timer control port 
74| TIMR_O DATA = 40H + address of counter 0 data port 
75| TIMR_O LOAD = 36H ; control word for timer 
76! 
77| STKSIZE = 256 ; Number of bytes on interrupt- 
78 | ; service-routine stack 
79| 
BO fr re ee 
81] 
82| _TEXT SEGMENT 
83) 
B4 pm rn nn ne nn nn nn nn $+ + + == == - = = 
85| ; Misc. variables. Note that I'm putting all these in the 
86| ; code (_TEXT) segment so that I can find them when an 
87! ; interrupt comes along. The PUBLIC statements are just for 
88! ; debugging. 
89) 
90| old int equ §$ 
91| old off dw ? : Offset of old timer interrupt routine. 
92| old_seg dw ? ; Segment address of same. 
93) 
94| tick reset dw ? 
95] numticks dw 2? ; Initialized to tick_reset, decre- 
96| ; mented on each timer interrupt, 
97 | ; reset to the speedup factor (and the 
98 | ; old service routine is called) when 
99| ; it reaches zero. 
100] 
101] stack db STKSIZE dup (0) ; Local stack for service routine 
102| : 30 bytes are used by real service 
103] ; routine, the rest is available 
104| ; for the user service routine. 
105| stack_end dw ? 
1061 
107| old_ds dw 2? 
108] old_sp dw ? 
109| old_ss dw ? 
110] old_ax dw ? 
111! old_ip dw 2? 
112! old_ics dw 2? 
113} old fl dw ? 
114} 
115] numint dd 0 ; total number of interrupts 
116] numblk dd 0 ? Number of times user routine blocked 
117} 
118] blocked db 0 : don't execute user routine if true 
113 
120| IF DEBUG 
1234 PUBLIC old int, old off, old seg, old ds, 
122| PUBLIC tick_reset, numticks, stack, stack end, old sp, 
123) PUBLIC old ss, old ax, old ip, old cs, old fl ~ 
124| PUBLIC blocked, serv, numint, numbik 7 
125| ENDIF 
126| 
127| 3----------------------------------------------------+-------- 
128! ; statistics stuff. 
129| : 
130| PUBLIC t_numint, _t_numblk 
131] 
132| _t_ mumint PROC NEAR 
133] mov ax,WORD PTR cs:numint 
134| mov dx,WORD PTR cs:numint+2 
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© CHEST 














135 | 
136| 
137] 
138 | 
139] 
140| 
141| 
142| 
143} 
144| 
145| 
146| 
147] 
148} 
149| 
150] 
151] 
152] 
153} 
154| 
155] 
156| 
LS7'| 
158] 
153] 
160] 
161] 
162 | 
163] 
164] 
165 | 
166] 
167] 
168 | 
169] 
170] 
171] 
bral 
1731 
174| 
175) 
176| 
177] 
178] 
179| 
180| 
181] 
182 | 
183] 
184 | 
185] 
186] 
187| 
188 | 
189} 
190] 
191] 
192| 
193] 
194| 
195] 
196] 
197| 
198 | 
199} 
200] 
201] 
202 | 
203] 
204| 
205 | 
206| 
207 | 
208) 
209] 
210| 
211] 
212| 
2131 
214] 
Zot 
216] 
217'| 
218| 
219] 
220) 
221) 
222) 
223) 
224| 
2251 
226] 
227) 
228) 
229) 
230) 
231] 
232 | 
233] 
234] 
235) 
236| 


oe 


238 | 
239| 
240] 
241] 
242) 
243) 
244] 
245] 
246] 
247] 
248} 


ret 


_t_numint ENDP 


_t_numblk PROC NEAR 


mMOv 
mov 
ret 


_t_numblk ENDP 


ax,WORD PTR cs:numblk 





dadx,WORD PTR cs:numblk+2 


t_cli(): t_sti(): 


PUBLIC t cli, 


_t_sti 


_t_cli PROC NEAR 


cli 
ret 
_t.cli ENDP 


_t_sti PROC NEAR 


sti 
ret 
_t_sti  ENDP 


Disable and enable interrupts. 


Disable and enable user interrupt service 
routine but not the real interrupt service 
routine (or the interrupt itself). 


t_block(); 


; t_release(); 


PUBLIC _t block, t release 


_t_block PROC NEAR 
mov byte ptr cs:blocked,1 


ret 


_t_block ENDP 


_t_release PROC NEAR 
mov byte ptr cs:blocked,0 


ret 


_t_release ENDP 


MY we te te te te 


__t speedup 


push 
MOV 
xor 
call 


mov 
mov 
mov 
mov 


if DOSPEED 


mov 
cmp 
je 

cmp 


je 


Mov 
out 
mov 
mov 
mov 
div 
cli 
out 
mov 
out 
sti 
noload: 


mov 
mov 
int 
mov 
mov 


endif 


UBLIC _ t speedup 


PROC NEAR 


bp 

bp, sp 
ax, ax 
__chkstk 


_TEXT:old_ds,ds 

ax, [bpt+4] 

_TEXT: tick_reset, ax 
_ TEXT: numticks, ax 


Se Fe a, Fe 


ax, [bp+4] 
ax,01H 
noload 
ax, 00H 
noload 


al, TIMR_0 LOAD 
TIMR_CTRL, al 
ax, 00000H 

ax, 00001H 

bx, [bp+4] 

bx 


Fe Se Se Se Me Fe he te Fe te 


TIMR_0 _DATA,al 
al,ah 
TIMR_O_DATA,al 


te Se Me Be te Fe 


ah, 35H 

al, 08H 

21H 
_TEXT:o0ld off, bx 
_TEXT:old_ seg,es 


Se te Ye Ye Fe 


ah, 25H 

al,08H 

ax, OFFSET _TEXT: serv 
ds 

cs 

ds 

21H 

ds 


8p, bp 
bp 


PUBLIC __t_ slowdown 


__t_ slowdown 


push 
mov 
xor 
call 





PROC NEAR 


bp 

Dp, sp 
ax, ax 
__chkstk 


t_speedup( factor ) 
Int factor; 


factor = [bp+4] 
routine = [bp+6] 


remember current DS. 
AX = factor 
tick reset = factor; 
numticks = factor; 


if( factor && factor != 1) 
{ 


Set up timer for load 
Number of ticks 

= 65536/factor 
BX = factor. 
AX = number of ticks 


Send new count to timer 


} 


Get the old vector 


set up the new vector 


Se Se te Fe Fe Se Fe te Fe 
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249] 
250| 
251] 
252] 
253) 
254] 
255] 
256] 
257) 
258] 
259) 
260] 
261) 
262) 
263) 
264 | 
265] 
266/| 
267) 
268 | 
269) 
270 | 
271) 
272 | 
273| 
274| 
275) 
2761 
277| 
278 | 
279| 
280| 
281) 
282) 
283) 
284) 
285] 
286| 
287) 
288 | 
289| 
290) 
291) 
292) 
293) 
294 | 
295) 
296 | 
297] 
298] 
299| 
300] 
301] 
302| 
303] 
304 | 
305] 
306| 
307| 
308) 
309 | 
310] 
311} 
312) 
313| 
314] 
aL] 
316| 
317] 
318| 
319] 
320] 
321] 
322) 
323) 
324 | 
325 | 
326| 
327 | 
328 | 
329) 
330 | 
331] 
332] 
333 | 
334 | 
335 | 
336 | 
337 | 
338 | 
339) 
340 | 
341] 
342) 
343] 
344| 
345] 


no_int: 
mov 
out 
mov 
out 
out 


mov 
pop 
ret 


__t_slowdown 


ax, TEXT:old off ; 
ax, ax ; 
no_int 


ds 

ah, 25H 

al, 08H 

ds, TEXT:old seg 
dx, TEXT:old off 
21H 

ds 


Se Fe Fe te Fe Fe Be te 


al,TIMR_0_LOAD ; 
TIMR_CTRL, al : 
al,0 

TIMR_0O_DATA,al 

TIMR_0 DATA,al 


8p, bp 
bp 


; Actual interrupt service routine. 
; Note that the flags, cs, and ip are pushed on entry (because 
; if the interrupt) 


serv PROC 
push 


mov 
or 


jz 


add 
adc 
jmp 


add 

adc 

push 
push 
push 
push 
push 
push 
push 
push 


servl: 


servexit: 
dec 
jle 
Mov 
out 


pop 
iret 


serv3: 
mov 


pop 
jmp 


_TEXT ENDS 
END 


NEAR 


ax 


al, byte ptr cs:blocked 


alLoak 
servl 


WORD PTR cs:numblk, 
WORD PTR cs:numblk+ 
servexit 


WORD PTR cs:numint, 
WORD PTR cs:numint+ 
bx 
cx 
ax 
si 
di 
bp 
ds 
es 


ds, TEXT:old ds 
bx, T active 
[bx], 8p 
(bx+2],88 


cs 
&8 


__t_ reschedule 


bx, T active 
8S, [bx+2] 
Sp, [bx] 
es 

ds 

bp 

di 

si 

ax 

cx 

bx 


_TEXT: numticks 
serv3 

al,20h 

20h,al 

ax 


ax, TEXT:tick_reset 
_TEXT:numticks, ax 
ax 


dword ptr _TEXT:old_ int 





See if the interrupts have 
changed. 
No, don't fix them then 


restore old timer interrupt 


Restore default system 
clock tick rate 


If( servicing blocked) 
{ 


Fe te Me Se Fe 


Save rest of 
current context 


1 ++numblk; 
2,0 3; 
2) 
; else 
1 s { 
2,0- .< +numint; 


; Restore Data segment 
; BX = T_ active 

; T_active->sp = SP 

; T_active->ss = SS 


; Set up local stack 


sp,offset TEXT: stack_end ; 


‘ in task.c 


BX = new T_ active, 
will be the same as 
the old T_active if 
no change is reqd. 


Se te Be Be te Fe He Me Me 


} 
if(--numticks > 0) 
{ 


send EOI 


we Se Se Fe Se Be Be Me 


} 
else 


numticks = tick_reset; 


jmp to old vector 


ee Fe Be Be te te FF Be 


} 


End Listing Two 


(Listing Three begins on page 116.) 
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computer graphics, CAD, and programs that use 
computational geometry. 


You save time and 
money with its 
flexibility. 
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to Borland's Turbo 
Graphix Toolbox:/7 


Over 150 ready to use routines, such as Equations of 
Lines, Circles, Arcs & Planes « Intersection of Lines, 
Circles, Planes * Curves « 2&3 Dimensional 
Transforms * Polygons « Hidden Lines * Volumes » 
Areas « Prespectives « Polygon Clipping and more.... 


Manual, full source code and sample programs.All for 
the introductry price of $99.95US. Add $5.00 for SH. 
Tex Res add 8% ST. 30 day money back guarentee. 
VISA,MC,Check MO accepted. Needs Turbo Pascal 
2.0+, IBM PC(Comp),Zenith Z100,MS/PC DOS 2.0+. 


DISK SOFTWARE, INC. , 2116 E Arapaho, # 487 
Richardson, Texas 75081 (214) 423-7288 
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MPULSE COMPUTERS 
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UNIX* PROGRAM DEVELOPMENT 
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* 32 bit processing power * 32 bit processing power 
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* OS derived from AT&T UNIX System V_ * OS derived from AT&T UNIX System V 
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Listing Three 
(Listing continued, text begins on page 126.) 





Eid] add sp,2 ; Discard return address 
112] pop ax ; return value = errcode 
Listing 3 -- swap.asm, Printed 9/11/1987 113] 
114| mov ss, WORD PTR cs:save_ss ; Restore initial stack... 
1] ; SWAP.ASM Routine to do context swaps. Everything in 115] mov sp, WORD PTR cs:save sp ; 
21: this file is VERY compiler dependant and 116| pop ds ~ 3 ...and data segment. 
Sis VERY nonportable. 117] 
4l; 118] push ax 
S| TITLE swap.c 119] call rst chkstk : Put back original chkstk 
6| NAME swap 120 call __t_ slowdown ; Disable weird timer int. 
7\ 121) 
8| _TEXT SEGMENT WORD PUBLIC ‘CODE’ 122 | pop ax 3 get back return value 
9| “TEXT ENDS 123} push ax 
10| DATA SEGMENT WORD PUBLIC 'DATA' 124| 
11] "DATA ENDS 125] or “eee ; if( orrcode — NOERR ) ) 
12| CONST SEGMENT WORD PUBLIC 'CONST' 126] jnz  t_stopl | 
13] CONST ENDS 127| push T active 3 free( T_active ); 
14| _BSS SEGMENT WORD PUBLIC 'BSS' 128 | call _ free 3 
15| L123 add 8p, 2 2.) 
16| op db 0 # Used by ret_chkstk and chg_chkstk 130] 
17| segn dw 0 3s (below). 131] t_stopl: 
18} off dw 0 132] pop ax + return( errcode ) 
19] 133) 
20| save bx dw 0 ; used by __t swap _in 134) pop di ; resore si and di saved by 
21) , 135| pop si ; by _ t_shazenm, 
22| _BSS ENDS 136] pop bp * and bp saved by t_start. 
23| DGROUP GROUP CONST, BSS, _DATA 137 | ret ; 
24) ASSUME CS: TEXT, DS: DGROUP, SS: DGROUP 138| _t stop ENDP 
25] 139] 
26| DATA SEGMENT 140 | frm rr rn rn rn ere ne eee 
27| _DATA ENDS 141) 
28| 142| __t install PROC NEAR 
29| IF 1 143) 
30] PUBLIC stack_err, mychkstk, rst_chkstk, chg_chkstk 144| ; _t_install (new) 
31| PUBLIC op, segm, off 145| > Tes *new; 
32| ENDIF 146| 3 
33) 147] + Delete the current task and replace it with the 
34| seeen---- rr rer eee 148 | * new one. This routine saves some space (and execution 
35| _TEXT SEGMENT 149} + time) by jumping into the middle of swap{) to install 
36| 150] + the new task. The scheduler must be blocked when 
37| ASSUME CS: _TEXT 152! ; this routine is called. This routine does not 
38) 152] 3 ©return. 
39} PUBLIC _ t swap in + Swaps two tasks 153] 
40| PUBLIC es _inetall ; Installs a task when none active 154| add sp,2 ; discard return address 
41| PUBLIC ae shazam ; Starts multitasking 155] pop bx ; bx = new 
42| PUBLIC _t_ stop ; Stops multitasking. 156] 
43| PUBLIC — t sus_chkstk ; Temporarily suspend stack checking. 157} mov 88,WORD PTR [bx+2] 3 s8:8p = new task's stack; 
44| PUBLIC tee ret _chkstk ; Restore it again. 158} mov sp,WORD PTR [bx] 
45| 159} 
46| EXTRN chkstk:NEAR ; in standard library 160} push bx 
47| EXTRN —free:NEAR # In standard library 161] push _T active : free( T_active ) 
48| EXTRN — t slowdown:NEAR; In schedule.asm 162] call free 
49| EXTRN t block: : NEAR a 163] add Bp,2 : Discard arg to free() 
50| EXTRN R “release: NEAR ; * 164] pop bx; 3 get back bx. 
51| EXTRN _t iserr:NEAR  ; In task.c 165| 
$2| EXTRN _T active:WORD ; Declared in kernel.h. Pointer 166| jmp shazam 
53| ; to currently active task 167| 
54] 168| _t install ENDP 
§§| :-----------------------------------------+----+--------------- 169| 
56] 170 | fre nnn rr nn nn nn nn ee nn ne = ++ +--+ 
57| save_sp dw 0 1714 
58| save ss dw 0 172| __t swap in PROC NEAR 
591 chk _on dw 0 + No stack probes while nonzero 1734 
60} 174| + _t_swap_in( new ) 
Gl f seren enn ne SES Se Ce SSS EN SN SOE Sh eS EERO ERED Sen eh enes emcees eween se 175| ; TCB *new; 
62| 176] ; 
63| __t shazam PROC NEAR 177] + Do a context swap. Replace T active with new, This 
64| 178] ; routine returns only when the original context is 
65 * Start the ball rolling. Save the current context. 179| ; restored. Swapping MUST be blocked when this subroutine 
66| # then start up the first task. On entry, 180} ; is called. Release() is called once the new context 
67 | + T_active must point at the first task to activate. 181) ; is installed and T active is modified to point at the 
$e ; Stack on entry (from top to bottom) is: 182| ; new task. 7 
9| ; 183} 
70} + xYreturn address from t_shazam cail 184} cli 
711 * Old bp saved by t _start 185] mov WORD PTR cs:save bx,bx 
72 | ; t_start's return address 186| pop bx ; bx = return address 
73 | 3 speedup factor passed to t_start 187] pushf +; Save current context 
74) 3 188| push cs 
75| 189| push bx 3 (Push return address as new ip) 
76| add sp,2 ; Discard return addr to t shazam 190| push ax 
77\| ; Uncovering bp from main that 191} push save bx 
78 | ; was saved by t_start() 192| push cx 
79| push si 193) push dx 
80} push di 194| push si 
81) push ds : push this last 195| push di 
82] 196| push bp 
83 | mov WORD PTR c8:save_ sp, sp 197] push ds 
84} mov WORD PTR c8:save 88, 38 198] push es 
85| 199| 
86 | call chg_chkstk 200) ; Stack now looks like this: 
87 | mov bx, WORD PTR T active 201) : 
88 | jmp shazam 202 | > )0sonew (sp + 24] 
89| 2031 ; flags [sp + 22) 
90] __t_shazam ENDP 204} ; cs [sp + 20) 
91) 2051 ; ip [sp + 18) 
sain ak SRN A a Ue a a ai le oa i ae trie 206| > 06 ax [sp + 16] 
931 207| ; «bx [sp + 14] 
94| _t_stop PROC NEAR 208] ; cx [sp + 12] 
95! 209| ; dx [sp + 10] 
96] s t_stop( errcode ) 210} : si {sp + 8) 
97| 3 2111 s di [sp + 6) 
98 | : This routine deletes the current task, causes 212) ; bp [sp + 4] 
99| # multitasking to be turned off, and passes control 213] >) 6as [sp + 2] 
100} s back to the routine that called t _ start () 214! : es [sp] (top of stack) 
101) ; (immediately following the t_start call). 215] 
102| + Errcode is passed back to the calling routine as the 216| mov bx,WORD PTR T active 
103} # return value of t_start(). 217) mov WORD PTR [bx+2],ss 
104| : 218) mov WORD PTR [bx], 8p 
105] : It can be called directly by a running task; it's 219} 
106] # Called automatically when the last task is deleted, 2201] mov bx, 8p 
aga # or when the only running task deletes itself. 221) mov bx,WORD PTR [bx+24] : bx = new 
222| 
1101 cli + Just to make sure oat shazan: * __t_ shazam and _t install 
; Come here to do the swap 
116 


Dr. Dobb's Journal, December 1987 





— 





226| 
227 | 
228 | 
229] 
230) 
231) 
232\| 
233) 
234 | 
235] 
236] 
237) 
238 | 
239) 
240] 
241) 
242) 
243] 
244| 
245] 
246| 
247 | 
248 | 
249) 
250) 
251) 
2521 


WORD PTR T active,bx ; T active = new; 


838,WORD PTR [bx+2] : Switch to new task's stack 
sp,WORD PTR [bx] 


call t release 


sti 


iret 


__t_ swap in ENDP 


# __t_chg_chkstk() Normal stack checking off 

; __t_ret_chkstk() back on again 

* __t_ sus_chkstk() Suspend stack checking temporarily 
; __t_ret_chkstk() restore it again. 


2831 : 
; Turn off Microsoft stack checking by overwriting the first 
; 3 bytes of _ chkstk with an absolute jump to mychkstk. 

; This is a kludge but I can't get the Microsoft compiler 

: to link my own version of chkstk, even when I use the 

; source file that they supply. 


254) 
255 
256) 
257) 
258 | 
259) 
260) 
261] 
262) 
263) 
264 | 
265] 
266] 
267) 
268 | 
269] 
270) 
2711 
2721 
273 | 
274 | 
275) 
276) 
277) 
278 | 
2791 
280] 
281) 
282) 
283) 
284 | 
285] 
286] 
287 | 
288 | 
283] 
290) 
2911 
292 | 
293 | 
294) 
295] 
296| 
297| 
298 | 
299 | 
300 | 
301] 
302) 
303 | 
304 | 
305 | 
306] 
307 | 
308 | 
309] 
310] 
311] 
312) 
313] 
314| 
31S} 
316| 
317] 
318 | 
319] 
320] 
321] 
322 | 
323 | 
324| 
325] 
326 | 
327 | 
328 | 
329] 
330] 
331] 
332 | 
333] 
334| 


[ 





chg_chkstk PROC NEAR 


mov 


mov 
mov 


mov 
mov 


mov 
mov 
mov 
mov 
mov 


mov 
ret 


chg_chkstk ENDP 


rst_chkstk PROC NEAR 


mov 


mov 
mov 


mov 
mov 


mov 
mov 
ret 


rst_chkstk ENDP 


__t_sus_chkstk PROC NEAR 


mov 
ret 


__t_sus_chkstk ENDP 


__t_rst_chkstk PROC NEAR 


mov 
ret 


__t_rst_chkstk ENDP 


; On entry AX holds the number of bytes required for local 
: variables. Chkstk normally checks the stack and, at the 
; same time ‘ir’ wes setting up the stack frame by 

; sub tract: ae contents of ax from the stack pointer. 


mychkstk PROC NEAR 


mov cx,cs:chk_on : If stack checking disabled at 

or cCx,cx ; run time, skip past the actual 

jz nocheck ; test. 

mov cx, T active 

add cx,44_ ; Offset to stack base + 4 

cmp sp, cx ; if( sp <= stack_base ) 

jbe stack_err 
nocheck: 

pop cx ; cx = return address 

sub sp,ax ; finish setting up stack frame 

jmp cx 3; ret to caller w/o modifying stack. 
stack err: ; Return address still on the stack 

mov ax,-9 

push ax 

call _t_stop ; Shouldn't return 


bx, OFFSET __chkstk 


ah, BYTE PTR cs: [bx+0] 
BYTE PTR op,ah 


ax,WORD PTR cs: [bx+1] 
WORD PTR off,ax 


ax,WORD PTR cs: [bx+3] 

WORD PTR segm,ax 

BYTE PTR cs: [bx+0],0EAH ; EA=JMP 

WORD PTR cs: [Dbx+1),OFFSET mychkstk ; offset 

WORD PTR cs: [Dx+3],cs 3; segment 
csa:chk_on,1 : Enable stack checking 


bx,OFFSET _ chksatk 


ah, BYTE PTR op 
BYTE PTR cs: [bx+0],ah 


ax,WORD PTR off 
WORD PTR cs: [bx+1],ax 


ax,WORD PTR segm 
WORD PTR cs: [(bx+3],ax 


cs:chk_on,0 











cs:chk_on,1 





(continued on next page) 
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Listing Three 
(Listing continued, text begins on page 126.) 





74 | */ 
75} 
76] TCB *task; 
335] Mov cx, 0 77\ 
336] 4mp cx ; Panic abort to DOS 78 | if( q->signature != TQ SIG ) 
337] 79| return( TE_BADARG ); 
338| mychkstk ENDP 80} 
339| 4 t_block(); 
T ENDS 
Bert 5 83) if( q->numele == q->q_ size ) /* Queue is full */ 
84] { 
8S} t_release(); 
86| return( TE_QFULL ); 
87| } 
‘ End Listing Three rr , va 
30 | * Enqueue the message. 
91) */ 
e 4e 92) 
Listing Four 93|  ++_ q->nunele; 
94 | if{ +tq->tailp >= q->queue + q->q_size ) 
95| q->tailp = q->queve ; 
Listing 4 -- globals.c, Printed 9/11/1987 96} *(q->tailp) = msg ; 
97] 
1] #define ALLOc I 98| 
21 99| if( q->task h ) 
3| #include "kernel.h" 100} { A 
101) /* A task is waiting, dequeue both it and the message, 
102) * attach the message to the task, and reschedule 
103} s/ 
pet task h 
* 4s 105] task = q->task_h; 
End Listing Four 106) q->task_h = task->next; 
107] 
108| --q->numele; 
109] if( ++q->headp >= q->queue + q->q size ) 
2 e e 110] ->headp = q->queue; 
Listing Five 111} = Pi eee 
112] task->msg = *(q->headp); 
113] task->status = TS WAIT ; 
Listing 5 -- queuve.c, Printed 9/11/1987 114] pq_ins( T tasks, &task) ; 
115] 
1] #include “kernel .h™ 116] t_yield(); 
21 Li7 | } 
3) [Bown n nnn nnn nn nnn nn nn nnn nn nn nn nn nnn nnn = +--+ ---- ----- == == */ 118] 
4] 119] t_release(); 
S| T_QUEUVE *t_makequeue( size ) 120] return TE_NOERR; 
6| int size; s2if } 
71 4 122| 
8] /* Make a queue for intertask communication and link it 123| /*-------------------------------- +--+ + + ee a/ 
9} * into the the queve chain. Return values are pointer 124| 
10} * to queue on suceess or TE NOMEM if Insufficient memory. 125| void *t wait( gq, timeout ) 
11| * Queues are searched in order of creation so it's best 126| T QUEUE *q: 
12| * to create the most active queues first. Be sure that 127| int timeout; 
13| * multitasking is blocked when tailp is modified (because 128) { 
14| * it's static). 129) /* Wait for a message to arrive at the queue. If several 
15] “/ 130] * tasks are waiting at the same queue, the first task 
16) 131) * in the queue gets the message. Return if no message 
17| static T_QUEUE *tailp; 132) * arrives within timeout system clock ticks. Maximum 
18] T_QUEUE *D; 133| * timeout is 32,767 ticks. A 0 timeout value 
19] void *malloc(); 134] * means that the subroutine returns rrmepighes =| 
20] 135] * (without a reschedule) if no message is waiting 
211 t_block(); 136) * in the queue. 
22} Pp - (T_QUEUVE *) malloc( sizeof (T QUEUE) 137] * 
23| + ((size-1) * sizeof(void *)) ); 138] * Message requests are queued up in order recieved, 
24] t_release(); 139] * without reguard to priority. I've done this both 
25) 140} * because it's easy and because, in most applications, 
26) 4f¢ ip. 141| * tasks with different priorities will not be pending 
27| return (T_QUEUE *) TE_NOMEM; 142| * on the same queue. 
28| 143| . 
291 p->signature = TQ SIG; 144] * If a message is present, the routine returns it 
30} p->next = NULL; 145| * imediately without yielding, otherwise the current 
31] p->task_h = NULL; 146| * task is removed from the active list and yield({) 
32) p->task t = NULL; 147| * is called. 
33) p->numele =- 0; 148| * 
34] p->q_ size = size; 149] * Hints: Use this routine to suspend a task for a 
35| p->headp = p->queue; 150] * limited amount of time (as compared to deleteing 
36] p->talilp = p->queue; 181 * the task). Just pend on a queve that will never have 
37| 152] * a message sent to it. 
38| t_block(); 153| * 
39| 154| * Normally, a pointer to the message is returned, other 
40| if( !T_ queues ) 155| * return values are: 
41| T_queues = tailp=p; 156] * 
42) else 157} * TE_TIMEOUT on a timeout or if the input value of 
43| { 158} * timeout is 0 and no message is waiting 
44] tailp->next = p; 159| * 
45| tailp =p; 160} * TE_NOTASKS There current task is the only one in 
46| } 161] * existance. This is a guaranteed deadlock. 
47| 162] af 
48) t_release(); 163} 
49| return p; 164| TCB *new; 
rt } 165] 
166| if( q->signature != TQ SIG ) 
52] [# mem mnnn nnn nnn men an nn nnn nn en en nn nn nnn 8 / 167| return( TE BADARG Jj; 
531 168] vs 
$4] int t_send( q, msg ) 169) t_block(); 
55| T_QUEUE *q; /* Pointer to queve «/ 170} F 
ert void *msg; /* Pointer to message to enqueue */ 171] if( q->numele ) 
{ 172) { 
58 | /* Send a message and reschedule if necessary. 173} /* There's a message waiting in the queue. Dequeue 
539] ‘i 174] * the message and return it immediately. strictly 
60| * Return Values: 175| * speaking, we don't have to attach the message 
61| * TE_NOERR No error; 176| * to the task, but it's convenient to do it for 
62] ® TE_BADARG Bad q argument. 177] * debugging reasons. 
63 | * TE _QFULL Queve is full 178 | sal 
64| * 179] 
65 | * The message is always enqueued in the indicated queue. 180| -- q->numele; 
66) * Then, if a task is waiting, The message at the head of 181} if( ++q->headp >= q->queue + q->q_size ) 
67 | * the queue is dequeued and attached to the task, which 182} q->headp = q->queue ; 
68 | * is put back into the active list. Finally, if a task 183] 
69 | * was activated, the current process yields. Note, 184] T_active->msg = *(q->headp) ; 
70} * however, that the current task will still be the 185] T_active->status = TS WAIT ; 
71\ * active task if it's higher priority than the one to 186] a e 
a3, i which you send a message. The sending task should wait() 187] t release(); 


somewhere to make room for the lower-priority task. 


(continued on page 120) 
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Listing Five 
(Listing continued, text begins on page 126.) 


188) 
189} return T_active->msg; 
190| } 
191] else /* No messages waiting */ 
192| 
193| if( timeout — 0 ) /* Immediate time out */ 
194) { 
195] t_release(); 
196| return TE_TIMEOUT; 
197] } 
198| else 
199) { 
200] /* Enqueue the current task to wait for an 
201) * incomming message. The pq del call 
202] * gets a task to preempt the current one. 
203 | o/ 
204| : 
205) del( T tasks, énew) ) 
206| Pq_ = 
207) t_release(); /* No tasks to activate */ 
208) return TE_NOTASKS; 
209] } 
210) else 
211] { 
212| T_active->wait = timeout; 
213) T_active->next = NULL; 
214] T active->timestamp = T clock; 
215) 
216| if( !q->task h ) 
217\ q->task_h = T_ active; 
218] else 
219] q->task_t->next = T_active; 
220) 
221) q->task_t = T_ active; 
222| 
223) _t_swap_in( new ); /* Returns on either a message 
being */ 
224) /* sent to this queue or a 
timeout. */ 
225| ; 
226| return ( T_active->msg ? T_active->msg : TE_TIMEOUT 
; 
227| } 
228 | } 
229) } 
230| } 
2311 
232) /*------------------------------------------------------------ */ 
233) ‘ 
234) t eld() 
235) ai 
236| /* Yield to the highest priority task (if there is one). 
237) * You can't yield to tasks waiting at queues, only to 
238 | * active ones. 
239] 4 
240| * Returns: 
241) * TE_NOERR successfull yield 
242| = TE_NOTASKS Current task is the only active task 
243) * 
244) 
245) TCB *new, *old ; 
246) 
247) t_block(); 
248| ‘ 
249| Funk del( T tasks, énew ) ) 
250| { aes ‘i; 
2511 t_release(); 
252 | return TE_NOTASKS; 
253) } 
254| 
2551 old = T active; 
256) 
257) old->timestamp = T clock ; 
258) pq_ins( T tasks, éold ); 
259) 
260) _t_swap_in( new ); /* t swap _in() changes T active to new; */ 
261| return TE_NOERR ; 
262| } 
End Listing Five 
8 J e 
Listing Six 
Listing 6 -- task.c, Printed 9/11/1987 
1 | Winelede doa Be ts oe se ee eee ee 
2| #include <stdarg.h> 
3| #include <signal.h> 
4| #include <tools/hardware.h> /* #define for TIMR CLK */ 
7 #include “kernel.h" zm 
| 
7| static int Speedup factor = 0; 
4 static long Executed, Timed_out, Did_swap; 
oe #define max(a,b) ((a) > (b) 2? (a) (b) ) 
12| /# anne nnn = -- -- ------ - -- -- -- +--+ + ee 
13| * Strings for error codes. Note that these are upside down 
i Fa compensate for the negative indexes 
16] 
4 static char *msgs[(] = 
Be 
19] “Ctrl-Break or Ctrl-c" /* -10 */ 
120 


20] 
21] 
22) 
23| 
24 | 
25| 
26) 
271 
28 | 
29] 
30 | 
31] 
32 | 
33) 
34 | 
35| 
36] 
37| 
38 | 
39| 
40] 
41) 
42) 
43| 
44| 
45| 
46) 
47| 
48| 
49 | 
50] 
$1] 
52] 
531 
54] 
551 
56] 
$7 | 
58] 
59] 
60| 
61] 
62 | 
63 | 
64 | 
65] 
66 | 
67 | 
68 | 
69 | 
70) 
711 
72 | 
73\ 
74| 
75 | 
76 | 
ye 
78 | 
79| 
80 | 
81| 
82) 
83] 
84] 
85] 
86] 
87) 
88 | 
89| 
90| 
91] 
92| 
93 | 
94] 
95| 
96] 
97| 
98 | 
93 | 
100| 
101] 
102| 
103| 
104] 
105| 
106] 
107| 
108] 
109} 
110] 
111) 
112| 
113) 
114| 
115] 
116| 
117] 
118] 
119] 
120] 
121] 
122| 
123] 
124| 
125| 
126| 
127] 
128] 
129] 
130] 
131] 
132| 
133] 





“Stack overflow", /* -9 */ 
“Delete would have caused a deadlock", /* =-8 */ 
“Internal error", {%, shi e/ 
“No tasks to send message to", /* 6 */ 
“Queue is full", /* =-§ */ 
“Timeout", /* -4 */ 
“Tllegal Argument", {* -.=3 .*/ 
“Insufficient memory available", f* —=2_*/ 
“Maximum number of tasks (32) already exists", {* =] */ 
“No error" fF 2. Bf 
}e 
char **t_errlist = msgs + ((sizeof(msgs) /sizeof(*msgs)) -1); 
PR ay | oy i ee ew Sem ae, ae ee oe | me a ae ek, tree, em ee, ak ras i eee oe a ee / 
t_iserr (x) 
return( -10 <= (x) && (x) < 0 ); 
} 
fe an a cis eae a > ae”, es et! fw en, ek mes og week, eee, “ae apy yews See <a” he Ba wok eae eS a/ 
t_perror( str, errcode ) 
ar *str; 
if( !t_iserr(errcode) && errcode != 0 ) 
t_printf( “%s status %d\n", str, errcode ); 
else 
t_printf( “%s %s\n", str, t_errlist[errcode] ); 
| Bese Seen eee wees enema swe ene a nae omens eoeees a / 
static intr() 
{ 
t_stop( TE KILL ); 
} 
fas as tal ae, ais aes) a a og ea res ee, alas a a eaves eee Ge ak elas SS «/ 
int t_start( speedup factor ) 
{ 
/* Start multitasking. At least one task must have 
* been created prior to this call. The speedup factor 
* determines the system clock-tick rate. A value of 1 
* gives the default rate of roughly 18.2 times a second 
* (once every 55 milliseconds, more or less). A 
* speedup factor of 2 gives twice that speed: 36.4 ticks 
* per second, one every 27 milliseconds or thereabouts. 
* Speeding up the clock rate shouldn't affect the DOS 
* clock. Nonetheless, it's safest if the speedup factor 
* is a power of two. 
* 
* If the speedup factor is 0 then the system is 
* nonpreemptive. You'll have to use t_yield(), t_send(), 
* and t_wait() to change contexts. 
® 
* Control passes imediately to the highest priority task. 
* Control will automatically pass back to the calling 
* subroutine when all tasks have been deleted. The task 
* is actually started in t_shazam(), declared in swap.asm. 
x 
* Normal return values: 
x 
* TE_NOTASKS No tasks exist, multitasking not 
4 started; 
x 
* TE_DEADLOCK A task deleted itself and it's the 
* only active task in the system. Other 
* tasks exist but they're all pending 
- on queues. 
* 
* TE_NOERR All tasks have been deleted normally, 
si no tasks are waiting on queues. 
x 
* TE_STACK Task stack overflow. 
® 
* If TE_NOERR is returned, then all memory allocated to 
* tasks will have been saved, otherwise, if one of the 
* above errors was returned, T_active will point at the 
* TCB of the offending task. 
x 
* Other return values are possible if a task calls t_stop() 
* directly. The argument passed to t_stop() is returned by 
* t_start(). The process is analogous to the value of 
* exit(), which doesn't return and who's argument is 
* passed back to a wait() call in the parent process. Note 
* that the TCB pointed to by T_active will not be free()ed 
ree TE_NOERR (0) is returned. 
a 
Speedup factor = speedup factor; 
if( i!pq_del( T tasks, &T_active ) ) 
return TE_NOTASKS; 
if( speedup factor > 0 ) 
{ 
© iit, 
_t_speedup( speedup factor ); 
} 
signal( SIGINT, intr ); 
_t_shazam(); 
return TE_INTERNAL; /* Shouldn't ever get here */ 
[ # me mmmme mn mw n wn en nan nnn ne ee x / 
int t_second () 
{ 


/* Returns the number of system clock ticks in a 
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134 | * second, given the speedup factor passed to t start(). 
135] * Returns 0 if the speedup factor was 0. In this case 
136] * a t_wait() call will never time out. 
Parl a/ 
138} 
139] return (TIMR_CLK / 65536) * Speedup factor ; 
140| } 
141] 
142| /*---------------------------------------+--------------------- */ 
143) 
144| TCB *t_create( subr, tag, priority, stack_size, ... ) 
145| 
146| int (*subr) (); /* Subroute that forms main module */ 
147| char *tag: /* String used to identify TCB of 
148| unsigned priority; /* Peigett a/ 
149| int stack_size; /* Stack pis (in 2-byte words) */ 
150| { 
151 /* Creates a new task. Subr is a pointer to the main() 
152| * subroutine for the task. 
153] * 
154] * Priorities must be in the range 0-255. 255 is the 
155] * highest. If more than one task has the same priority, 
156| * they are executed in a round-robin 
157\| * fashion. Forces a reschedule if tasking is active. 
158| * 
159] * Arguments may be passed to the subroutine at startup. 
160} * That is, a NULL-terminated list of pointer-sized 
161| * arguments follow stack_size in the t_create() call. 
162| * These are passed to the subroutine in the normal way. 
163] * For example: 
164| * 
165] * foo( a, b, c ) int a, b, c: {)} 
166] * t_create( foo, “foo” 10, 128, doo, wha, ditty, NULL); 
167| * 
168 | * starts up foo() as a task at priority 10 with a 
169| * 128-byte stack. Doo, wha, and ditty are passed 
170| * to foo as arguments a, b, and c. Note that the 
174 * arguments use 6 of the 128 bytes in the stack 
172) * (two for each argument). The “foo” tag is hooky 
173] * used for identification purposes in debugging. 
174| * It can be any string. 
175\| * 
176} * Note that a few Microsoft functions (like printf) 
177} * use up inordinate amounts of stack. If you're going 
178 | * to call Microsoft library routines, you'll need 
1793 | * at least 1K bytes of stack (stack _size==512) per 
180| * task. 
181] - 
182| * A pointer to the created TCB is returned normally. 
183] * Error return values are: 
184| . 
185] * TE _TOOMANY Maximum number of tasks already exists 
186| * TE _NOMEM Insufficient memory available 
187 | */ 
188| 
189} TCB £3 
190} struct SREGS segs; 
191} int pq_cmp(); 
192| int pq_swap(); 
193] va list argptr; 
194| void *arg; 
195] void *malloc():; 
196| 
197| va_start( argptr, stack_size ); 
198| 
199| if( ++T_numtasks > T _MAXTASK ) 
200) return (TCB *) TE_TOOMANY; 
201] 
202) t_block(); 
203) 
204] /* Allocate the stack, converting stack_size to bytes. 
205] * I'm requesting one more cell than specified in order 
206) * to make room for the error return address, below 
207) * {stack[0] is included in the sizeof(TCB)). The minimum 
208 | * gtack size is 20 words, this gives us enough for a 
209] * context swap plus a little slop. 
210) a 
213) 
212) stack_size = max( stack_size, 20 ); 
2131 
214) if( !(t = (TCB *) malloc(sizeof(TCB)+(stack_size*sizeof(void*)) 
\)) 

215] { 
216) t_release(); 
217) return (TCB *) TE_NOMEM; 
218] } 
219| 
220} /* Create the active queve if necessary, then initialize 
2211 * the TCB. The stack pointer is initialized to point 
222| * Just past the end of the stack (rather than to the 
223) * last cell) because a push uses a predecrement. The 
224 | * PC points at the subroutine. Uninitiailzed registers 
225) * are unimportant, but will contain 0. The stack area 
226 | * is initialized to the pattern aSa5a5a5.... so that 
227 | * we can look it with a debugger and see what's been 
228) * used. 0 is no good for this purpose because 0 is 
229| * a likely thing to b3 pushed on the stack. 
230 | * 
231| 
232| if( !T tasks ) 
2331 T_ tasks = pq_create( T_MAXTASK, sizeof(TCB *), 
234 | pq_cmp, pq_swap, NULL); 
235] segread( ésegs ); 
236| 
237) memset( t, 0x0, sizeof(TCB) - sizeof(void*) ); 
238 | memset ( t->stack, OxaS, stack_size * sizeof(void*) ); 
239] 
240) t->sp = t->stack + ++stack_size; 
241] t->ss = segs.ds ; /* Stacks are in data seg */ 
242) t->initial_ sp = t->sp ; 
243| t->priority = priority ; 
244 | t->timestamp = T clock ; 
245 | t->tag = tag 
246 ‘ 

| (continued on next page) 





$$$ 
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Listing Six 
(Listing continued, text begins on page 126.) 


247| /* Initialize the stack, First pretend that we've 

248 | * already called the initial subroutine by pushing 

249) * the arguments, and t_stop as a dummy return address. 

250} * The task shouldn't return, but if it does, t_stop 

251) * seems like a reasonable thing to call, even though 

252) * it will return garbage. 

2531 * The last 11 things are the initial context. 

254] * They'll be popped as part of the context swap. 

255| */ 

256} 

257] while( arg = va_arg(argptr, void*) ) 

258] *--(t->sp) = arg: 

259) 

260} *--(t->sp) = t_stop; /* Vector to t_stop */ 

261] te-(t=->8p) = 0; /* flags*/ 

262) &%-=-(t->sp) = segs.cs; /* cs */ 

263 | *--(t->sp) = subr; f* ip -*7 

264 | *=--(t->sp) = 0; /* ax */ 

265 | *--(t->sp) = 0; EX Be. *f 

266| t=-(t->sp) = 0; Peo FL 

267| *--(t->sp) = 0; /* ax a/ 

268 | *--(t->sp) = 0: pee 

269) t=-(t->sp) = 0; Lees *L 

270 *--(t->sp) = 0; /* bp */ 

2711 *--—(t->sp) = segs.ds; /* ds */ 

272] *--(t->8p) = segs.es; /* es */ 

273} 

274] if( T_active && T_PRIORITY( t, T_active ) <= 0 ) 

275] { 

276] pq_ins( T tasks, éT active ); 

277) _t_swap_in( t ); 

278 | } 

279| else 

280| { 

281) pq_ins( T tasks, ét ); 

282| t_release(); 

283 | } 

284] 

285} return t; 

286] } 

287) 

288 | [Penman wn nn nn nnn ne  -- - +--+ - = + + +--+ +--+ */ 

289) 

290} static TCB *del fm _queues( task ) 

291} TCB *task: — 

2921 { 

293) /* Traverse the queve list and if the task is waiting 

294} * for a message, delete it from the queue 

peed oo return a pointer to it, otherwise return NULL. 

296 | * 

297) 

298| T_QUEUE *q; 

299] TCB *t, ** prev >; 

300] 

301} for( q = T_queues; q ; q = q->next ) 

3021 { 

303 | prev = éq->task_h; 

304} 

at for( t = q->task_h; t; prev = ét->next, t = t->next) 
| { 

307} if( t — task ) 

308 | { 

309] *prev = t->next ; 

310} return t; 

311] } 

312] } 

313) } 

314| 

315] return NULL; 

316] } 

317] 

318| /*-------------------------------~---------------------------- */ 

319) 

320) int t_chg priority( tp, new priority ) 

321] TCB *tp; 

3221 int new priority; 

323| { 

324] /* Change priority for indicated task. Forces a reschedule. 

325 | * If the task was waiting on a message, it is immediately 

326 | * timed out and put back on the active list. A task may 

327| * change it's own priority. 

328] * 

329| * Return values: 

330] * 

331] * TE_NOERR 

332) * TE _BADARG Task doesn't exist; 

333) “7 

334] 

335 | int rval = TE _NOERR; 

336| TCB *deleted; 

337] int pq_rm_cmp(); 

338 | 

339] if( new_priority > 255 ) 

340] return TE_BADARG; 

341] 

342] t_block(); 

343| 

344| if( tp — T active ) 

345| { 

346) T_active->priority = new priority; 

347} t_yleld(); er : 

348 | } 

349| else 

350} { 

351] if( ! remove( T tasks, édeleted, rm_cmp, tp ) ) 

or if (deleted = del_fm_queues( tn) atts 

{ 

354 | deleted->status = TS TIMECUT; 

355) deleted->msg = NULL; 

356] } 

357] else 

358] return TE_BADARG; 
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359] 
360 | 
361) 
362) 
363 | 
364 | 
365] 
366 | 
367) 
368 | 
369] 
370] 
371) 
372| 
373) 
374| 
375] 
376| 
377) 
378} 
379] 
380) 
381] 
382) 
383 | 
384 | 
385) 
386| 
387/| 
388 | 
389] 
390| 
391) 
392 | 
393) 
394] 
395] 
396| 
397] 
398 | 
399 | 
400] 
401] 
402 | 
403] 
404| 
405| 
406] 
407| 
408 | 
409} 
410} 
411] 
412| 
413) 
414| 
415| 
416) 
417} 
418} 
419| 
420) 
421] 
422)| 
423| 
424| 
425] 
426) 
427| 
428| 
429| 
430| 
431) 
432| 
433| 
434| 
435| 
436| 
437] 
438 | 
439] 
440} 
441) 
442| 
443| 
444| 
445| 
446) 
447| 
448] 
449] 
450] 
451] 
452) 
453) 
454) 
455] 
456] 
457) 
458| 
459| 
460| 
461] 
462 | 
463 | 
464) 
465 | 
466| 
467) 
468 | 
469) 
470| 
471] 
472| 


deleted->priority = new priority; 
pq_ins( T_tasks, édeleted ); 


t_yield(); 
} 
} 
Dr ee ee eR an ee */ 
int t_delete( task ) 
TCB *task; 
{ 
/* Delete task created with previous t_create() call and 
* free all memory associated with task. Note that 
* malloced() memory is not freed, only the memory that 
* t_create() allocated to begin with. A task may delete 
* itself. Forces a reschedule. 
2 
* Return values: 
x 
* TE_BADARG Task doesn't exist 
* TE _NOERR 
s 
* T_stop is called automatically when the only active 
* task deletes itself. See t_start() for an explanation 
* of the return stati. 
x 
* For convenience, a task may delete itself with a 
* t_delete(NULL) call. 
a 
TCB *deleted; 
static TCB garbage; 
int Pq_rm_cmp(); 
t_block(); 
if( T_active — task || task — NULL ) 
/* Delete the current task 
* Note that the t_install() call below will not 
* return. It replaces the current task with the new 
* one, a pointer to which is in "deleted." 
s/ 
if( !pq_del( T_tasks, &deleted) ) 
t_stop( T_numtasks <= 1 2? TE_NOERR : TE_DEADLOCK ); 
else 
{ 
--T_numtasks; 
_t_Iinstall( deleted ); 
} 
} 
else 


* Delete a task that's not active. pq remove tries 

* to get it from the active list. If that's not 

* successful, del _fm_queues() scans the queves looking 
* for it. If that’s not successfule, TE_BADARG is 

* returned. 

s 


if( pq_remove( T tasks, é&deleted, pq rm_cmp, task ) ) 
free( deleted ); 


else if( deleted = del _fm_queues(task) ) 
free( deleted ); 

else 

{ 
t_release(); 
return TE_BADARG ; 

} 


if( --T_numtasks <= 0 ) /* Deleted the only task */ 
t_stop( TE_NOERR ); 
} 


t_release(); 
return TE_NOERR; 


static pq _cmp( taskl, task2 ) 
TCB **taskl, **task2; 
{ 
return T_PRIORITY( *taskl, *task2 ); 


static pq _swap( taskl, task2 ) 
TCB **taskl, **task2; 
{ 

TCB *tmp; 


tmp = *taskl; 
*taskl = *task2; 
*task2 = tmp; 
} 
static pq rm _cmp( taskl, item ) 
TCB **taskl; 
TCB *item; 


{ 
return !( *taskl == item ); 


static outci(c) 


if( c — '\n' ) 
putch('\r'); 


putch(c); 
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i ee =o oie 


473| 
474| 
475| t printf£( fmt ) 


476| 
477| 
478| 
479 | 
480| 
481] 
482| 
483| 
4841 
485} 
486| 
487| 
488| 
489) 
490] 
491 | 
492| 
493} 
494| 
495| 
496| 


} 


ar *fmt; 
{ 
/* The doprnt() function used here is from: Allen Holub, 
* The C Companion (Englewood Cliffs: Prentice-Hall, 
* 1987). You can also use the ANSI vprintf(). Note 
* that the Microsoft version of vprintf({) uses A LOT 
* of stack. If you're using vprintf, your tasks chould 
apa at least 1K bytes of stack. 
* 


va_list args; 


va_start(args, fmt); 
t_block(); 
doprnt(outc, 0, fmt, args); /* vprintf( fmt, args );: */ 
t_release(); 
} 


[ 8 een en nn a a nn rn nn rr nn nn oe eee af 


497| t_sstats() 


498 | 
499| 
500} 
$01] 
502] 
5031 
504} 
505} 
506] 
507] 
508] 
509] 


{ 
/* Print various scheduler related statistics. This routine 


* should not be called from a task (because it uses printf). 


*/ 


printf("\nScheduler called tld times: %ld Tasks timed out, “ 
“Sld context swaps\n", 
Executed, Timed _out, Did_swap ):; 
} 


[ Bene nn nn on on oo ow on nn ne ee 8 / 


510| #pragma check_stack- 


511] 


512| TCB *_t_reschedule() 


513] 
514] 
515] 
516| 
517] 
518] 
519] 
520] 
521] 
$22] 
5231 
524] 
$25] 
526] 
$27] 
528 | 
529] 
530} 
531] 
532 | 
533) 
534] 
535] 
536 | 
537} 
5381 
539] 
540 | 
$41] 
542] 
543} 
544] 
545] 
546} 
547} 
548 | 
549] 
550} 
551] 
$52] 
553] 
554] 
555] 
556] 
557 | 
558] 
559] 
$60 | 
$61] 
$62 | 
563] 
564 | 
565 | 
566 | 
567 | 
568 | 
569] 
570} 
571] 
$72| 
$73 | 
$74] 


{ 
static T_ QUEUE *q; 
static TCB *t, **prev ; 
/* Workhorse function called by the schedular 
(timer-interrupt service routine). 


Scan all the queves, checking for timed-out tasks. If 
you find one, remove it from the queue and add it to 
the active list. 


Modify T_active to point at the next task to activate. 
(the original T_active if no change). 


*ene * ene * we & 
~ 


++Executed; 
_t_sus_chkstk(); 


for( q = T_queues; q : q = q->next ) 
{ 
prev = &(q->task_h); 


for( t = q->task h;: t; ) 
{ 
if( --(t->wait) <= 0 ) 
{ 
++Timed_out; 
*prev = t->next ; 
t->msg = NULL ; 
t->status = TE TIMEOUT; 
pq_ins( T tasks, é&t ); 
} 


prev = &(t->next); 
t = t->next ; 


Check the highest-priority element of the queue. 

If it's not higher than the current task, do nothing. 
Otherwise do a context swap. replace will . 
extract the highest priority arect from the active 
list and put it into t, simultaneously putting 
T_active into the list. 


eee ne 8 & 
Pip 


T_active->timestamp = ++T_clock ; 
if( t= *( (TCB **) pq look(T_tasks)) ) 
{ 


if( T_PRIORITY(t, T_active) 
{ 


>= 0 ) 


++Did_ swap; 
pq_replace( T_ tasks, &t, &T_active ); 
T active =t; 


} 


_t_rst_chkstk(); /* Stack probes on again */ 
} 


#pragma check _stack+ 


End Listing Six 


Listing Seven 


1] #include <stdio.h> ae 


Listing 7 -- tdebug.c, Printed 9/11/1987 


2| #include “kernel.h" 


/* Stack probes off for the nonce */ 
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109) 


/* TDEBUG.C 
x 


aid 





Various routines that are useful for debugging but 
probably won't end up in the final system. 


t_tprint( t ) 


TCB 
{ 


Rt; 
/* Print a TCB */ 


char **p, *str ; 
int i; 


printf ("----------------- <%s> at %04x ---------------- \n", 
t=stag, t ): 


printf (“stack %04x:%04x, priority td, timestamp %d,", 
t->ss,t->sp, t->priority, t->timestamp ); 


printf(" wait td, status td\n", t->wait, t->status ); 


printf (“next #04x, initial sp %04x, msg %04x ", 


t->next, t->initial_sp, t->msg ); 
pstr( t->msg, 10 ):; 


printf (“stack[ 0) @ %04x = %$04x, ", 


& (t->stack) [0], (t->stack) (0)); 
printf(“stack[{ 1) @ %04x = %04x\n\n", 


&(t->stack) (1), (t->stack)(1)); 
/* Print the top 15 elements of the stack */ 


i = 15; 
for( p = (char **)t->sp; p < t->initial_sp && --i>=0; pt+ ) 
printf (" sp(%2d) @ %04x = %04x = ", 
(char **)t->sp - Pp. DP, *p); 
pstr.¢ *p, ..32 ) 


iti i< 0 

printf("(Stack dump truncated at 15 elements) \n"); 
print f ("--------------------------------------+---------\n") ; 
lame aetaiei Seepsinaincl ianpenalr api ics niette tlic sicemade titan anaiag gina als */ 


static pstr( str, len ) 
char *str; 


} 


/* Print a string with dots instead of nonprinting 
* characteres 
*/ 

putchar(‘'<'); 


for( len = 32 ; --len>=0 && *str ; str++ ) 
putchar( * * <= “str &6& *str < Ox7f 2? *str : °.* )3 


printf (">\n"); 


[ 8 ee enn a en nr ee ee et / 


t_qprint( q ) 
T_QUEVE *q : 


{ 


} 


/* Print out the contents of a queue */ 


TCB *t; 
int i; 


if( q->signature != TQ SIG ) 
{ 


printf("Queue is invalid (bad signature) \n"); 
return; 


} 


printf ("-------------- Queue at 804K omer memee meee n= \n", q): 
printf (“%d/%d messages in queue, next queue at %042:\n", 
q->numele, q->q_size, q->next ); 


printf ("Waiting tasks: "); 
if( t = q->task_h ) 

printf ("(none) \n" ); 
else 
{ 

for( :; t 3; t = t->next ) 


printf( “ts, “. t=->tag ): 
if( t —= q->task_t ) 
printf ("(end)\n"); 


} 
printf ("\n"); 
} 


printf( “head = équeue[%d]), tail = équeve(%td), queue is:\n", 
q->headp - gq->queue, q->tailp - q->queue); 
for( i = 0; i < q->q_size ; i++ ) 
{ . 
printf ("queue[%d]: %04x ", 1, q->queue[i] ); 
pstr( q->queve(i], 32 ); 


} 
BES (ee oe an ee \n"); 


End Listings 


123 


THE FORTH COLUMN __ 


Listing One (Text begins on page 144.) 


( LOAD screen for DDJ Standard Prelude and String Extension) 
( MJT Aug 30 1987 for DDJ December 1987) 


( 2 LOAD ( Standard prelude) 
3 LOAD ( Augmented interpretation) 
4 5 THRU ( Controlled words) 
6 13 THRU ( Strings) 





FORTH-83 functions-- typical definitions) 

Adjust these words for your Forth. See DDJ Oct 1987.) 
Note: functions already provided need not be redefined.) 
RECURSE (COMPILE) MYSELF ; IMMEDIATE 

INTERPRET INTERPRET ; 


re ee 


I> ( - ‘data) COMPILE R> ; IMMEDIATE 
>I (= ‘data) COMPILE >R ; IMMEDIATE 


Used for alignment: ) 
ALIGN ( HERE 1 AND ALLOT) ; 
REALIGN (a- a" ) ( DUP 1 AND +) ; 


oo ee am 


Le) 


CONSTANT CELL : CELL+ 2+ ; : CELLS a~ 3 


UNDO I> R> R> 2DROP >I ; \ Undoes a DO-- LOOP. 
Required definitions - used to support further compilation) 


- 


THRU ( n n2) 1+ SWAP DO I LOAD LOOP ; 
LOADS screens n through n2. 


a a 


\  >IN @ 64 + -64 AND >IN ! ; IMMEDIATE 
comment to end of line. For use in screens only. 


a 


\\ 1024 >IN ! ; IMMEDIATE 
stops interpreting or compiling screen immediately. 


ao” a 


ADP. € £:.) O= IF [COMPILE] \ THEN ; IMMEDIATE 
conditional interpretation or compilation. 


a 


: NEED ( - f) 32 ( ie blank) WORD FIND SWAP DROP 0= ; 
\ true if the following word is in the search order. 

\ FORTH-83 Controlled Words 

NEED 2* \IF 
NEED D2* \IF 


2* DUP + 
D2* 2DUP D+ ; 


ee es 
ee 


NEED HEX \IF 
NEED Cc, \IF 


HEX 16 BASE ! ; 
oe ee) HERE 1 ALLOT C! 


se 


NEED BL \IF 32 CONSTANT BL 


NEED ERASE \IF : ERASE ( a n) 00 FILL 
NEED BLANK \IF : BLANK ( a n) BL FILL 


=e Se 


NEED .R \IF : .R ( n width) >R DUP O< R> D.R ; 


\ DDJ Forth Column Controlled Words 
NEED 2>R 

\IF : 2>R COMPILE SWAP COMPILE >R COMPILE >R . IMMEDIATE 
NEED 2R> 

\IF : 2R> COMPILE R> COMPILE R> COMPILE SWAP ; IMMEDIATE 
NEED @EXECUTE \IF : @EXECUTE @ EXECUTE ; 


’ 


NEED AGAIN 


\IF =: AGAIN 0 [COMPILE] LITERAL [COMPILE] UNTIL ; IMMEDIATE 
NEED DLITERAL 


DUP \IF : DLITERAL SWAP [COMPILE] LITERAL [COMPILE] LITERAL ; 
\IF IMMEDIATE 


NEED S>D \IF : S>D (n - @) DUP O< ; 
NEED WITHIN \IF : WITHIN ( nn2 n3 - £) OVER - >R - R> U< ; 
NEED TRUE \IF <-1 CONSTANT TRUE 


\ String primitives 


: /STRING ( an n2 - a+n2 n-n2) ROT OVER + ROT ROT — ; 


’ 


\ truncates leftmost n chars of string. n may be negative. 


VARIABLE CTEMP 


+. Ere? 4-6 = ei} CTEMP C! CTEMP 1 ; 
\ converts character to string. 


\ SKIP and SCAN 


SKIP (alec = a2 12) 
returns shorter strin 
>R BEGIN DUP 


WHILE OVER C@ R@ - IF R> DROP EXIT 
el Epa THEN 1 /STRING 


’ 


a 


g from first position unequal to byte. 
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SCAN ( a l byte - a2 12) 


returns shorter string from first position equal to byte. 
>R BEGIN DUP 


WHILE OVER C@ R@ = IF R> DROP EXIT THEN 1 /STRING 


REPEAT R> DROP ; programming tools 


*Clipper, FoxBASE+, 


\ String compilation 


: PLACE ( an a2) 2DUP ! 1+ SWAP CMOVE ; dBASE, Quicksilver 
\ moves string ( an ) to be a packed string at a2. 
: ASCII ( - c) \ value of following character. 

BL WORD 1+ C@ STATE @ \ STATE-smart ASCII The Ul Programmer 


IF [COMPILE] LITERAL THEN ; IMMEDIATE 


Ul is the first professional code generator; we 
i \ compiles following string as packed string at HERE 
» ASCII " WORD COUNT DUP >R HERE PLACE R> 1+ ALLOT ALIGN ; wrote UI for programmers who want to automate 
their work but cannot use code that is ‘almost’ 
good enough. If your user interfaces include 
bounce-bar menus, pop-up help screens and 
\ String literals the other features of today’s best programs, you 
will gain an order of magnitude in productivity 


: © ¢ =a an) STATE @ \ string literal. 
IF COMPILE (") ," 


ELSE ASCII " WORD COUNT >R PAD I CMOVE PAD R> THEN UL IS SECONIE Goreatetier, Iie arin i 
; a 
IMMEDIATE duct — so your code comes out your way. 


Application specific edits, for instance, can be 
placed in the UI ‘template’ which controls the 
generation. Edit the screen appearance until it 
‘looks and feels’ perfect. Everytime you generate 


\ Number conversion operator 
VARIABLE DPL \ punctuation locator. 


: VAL. 4. a2 - 22 » n21-,,0) code, your special logic is preserved. 

\ string to number conversion primitive. True if d is valid. 

\ Returns da if number contains ",-./:" and sets DPL = 0 . ste : 

\ Returns n if no punctuation present and sets DPL = 0< Speaking of editing the screen, Ul includes a 
PAD OVER - SWAP OVER af CMOVE powerful, 3-D screen editor, so you can draw 
BL PAD C! PAD DPL ! R> DUP C@ ASCII - = DUP >R - l- 2 i 
cmte Tiawees | eeh'Ch' DAs SOULE x pop-up help boxes over your pull-down menus, 

SWAP ASCII , ASCII / 1+ WITHIN OR over your application. 

WHILE DUP DPL ! REPEAT R> SWAP >R IF DNEGATE THEN 
PAD 1- DPL @ - DPL ! R> PAD = ( valid?) 
IF DPL @ 0< IF DROP 1 ELSE 2 THEN ELSE 2DROP 0 THEN ; The Documentor 

\ -TEXT and COMPARE To run Doc, you just tell it the name of the main- 


line routine and make sure your printer has a lot 


\ returns -1 if string an < a2 n, 0 if equal, andl if >. of paper! (Sure, you can have the output go to 
OVER 0= IF ROT 2DROP EXIT THEN the screen or a file, too.) 
SWAP 0 DO OVER C@ OVER C@ - ( these chars <> ?) 
IF UNDO C@ SWAP C@ > 2* 1+ EXIT THEN 1 1 D+ 


LOOP 2DROP 0 ; You can tailor your documentation to include any 
or all of: a table of contents, system tree diagram 
: COMPARE : ay a2 n2 : , : ‘ . a ie (main line is the root), hierarchy (box diagram) 
returns - an<a2z2n2z, equal, an ° 4 : 
ROT 2DUP ( lengths ) 2>R MIN SWAP -TEXT DUP charts for each module, action diagrams (modern 
IF 2R> 2DROP style flow charts) for each PRG or procedure, 
ELSE DROP 2R> 2DUP = ( rae ae zthel DBF listings (structure, indexes, more), where 
see TR eee he en used/updated listings for fields and all variables 
\ IN : — by module and by line number within each 
module. 
: -MATCH ( an a2 n2 - 22??? -1, offset 0) 
\ returns the position of string a2 n2 in (an). . 
\ Offset is zero if ( an) is found in first char position. Our written money-back satisfaction guarantee 
\ Returns true with invalid offset if (an) isn't in a2 n2. set a new standard when we began it in 1985. 


gle ge ml ei mee ~ DUP. 06 Re: t= OR (Return rate to date: 0.6% and dropping!) No 


0 TRUE ( index match? ) ROT 1+ 0 copy protection, royalties or other nonsense. 
DO DROP ( index ) >R 


20VER 20VER DROP -TEXT 0= ( equal? ) ‘, 
IF R> 0 LEAVE THEN 1 /STRING R> 1+ TRUE Suggested retail: $295 each, (800) support 


> LOOP included. At your dealer today. Call us for a very 
2>R 2DROP 2DROP 2R> ; special offer on our latest release! (800) 233- 
3569 or, in NY, (212) 406-7026. 


\ Useful string operators 


: VAL (an-d f) VAL? DUP 3 < AND 
\ converts string to double number. True if number is valid. 
DUP IF 1-= IF S>D THEN TRUE EXIT THEN DUP DUP ; 


EVAL (an ) 


‘ evaluates ("text interprets") a string. The Computer Aided Software 
DUP >R TIB SWAP CMOVE R@ #TIB ! : . . 
0 >IN ! 0 BLK ! INTERPRET R> >IN ! ; sii starlet Engineering Corporation 
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COLUMNS 


CRAcol 


A Preemptive Multitasking Kernel and 


he main topic of both this and 

next month’s columns is a 
small preemptive multitasking 
kernel for the IBM PC (see Listings 
One-—Seven, beginning on page 110). 
Most of the kernel is written in C, 
so it shouldn’t be too difficult to 
port it to another environment, in- 
cluding a ROMed environment. The 
kernel lets you do multitasking 
within a program—that is, it lets 
you run subroutines as independ- 
ent tasks. It also supports a message- 
passing system that allows for inter- 
task communication (and time-outs 
when a message isn’t received 
within a specified time). It doesn’t 
let you multitask programs, how- 
ever, and it uses DOS as its I/O 
system. This month I'll show you 
how it works; next month I'll dissect 
the code itself. 

This month, I’m also passing on a 
neat routine for computing a run- 
ning mean, sent in by Kevin Jen- 
nings. 


What is Multitasking? 

Let's start with some definitions, just 
so everybody is starting from the 
same base. 

An operating system is a collec- 
tion of programs that lets you exe- 
cute other programs. Typically, 
some of these programs are resident 
(they stay in the computer's 
memory), others are nonresident 
(they stay on the disk until they’re 
needed, whereupon they're read 
into main memory and executed), 
and some are somewhere in _ be- 





by Allen Holub 





tween (they stay in memory until 
the space is needed for something 
else, whereupon they are overwrit- 
ten, but they'll be read back into 
memory once space is available). 
The main parts of the operating 
system are the kernel (or executive), 
the I/O system, and the shell. The 
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kernel is in charge of actually read- 
ing and executing other programs; 
the I/O system takes care of all com- 
munications with the _ outside 
world—the disk, printers, terminals, 
and so forth; and the shell is the 
part that talks to you. The shell 
typically uses both the I/O system 
and the kernel. This month’s 
column does not present an operat- 
ing system. In fact it only looks at a 
small part of the kernel—the part 
that takes care of multitasking. 
Multitasking is a method for 
making a computer appear to be 
doing several things at once. In real- 
ity, it’s swapping back and forth be- 
tween various tasks very quickly. 
Nonetheless, from a human user's 
perspective, several things seem to 
be going on at the same time. You 
can actually do multitasking with- 
out a kernel. Consider an interrupt- 
driven terminal multiplexer—a 
device that collects lines of text from 
several terminals and passes them 
(accompanied by some sort of iden- 
tifving information) along one com- 
munications channel to a single 
mainframe computer. You might 
have eight input channels, each of 
which would trigger a unique inter- 
rupt in the processor. There would 
also be eight interrupt-service rou- 
tines, each of which would collect 
characters until an end of line was 
found and then send that line to the 
mainframe. Each routine would main- 
tain its own input buffer and attach 
a unique identifier to each line. The 
multiplexer would appear to be 
doing eight things at once, reading 
from eight input sources simultane- 
ously, but in reality it would be 


performing eight independent tasks 
when stimulated by distinct exter- 
nal events (characters arriving). If 
eight characters were to arrive si- 
multaneously, the multiplexer might 
fail because of insufficient time to 
react to all eight inputs before more 
characters come along. 

A different approach to the same 
problem is to have a single inter- 
rupt, usually created by a timer chip 
of some sort, that starts up a sched- 
uler subroutine. The scheduler acti- 
vates a particular subroutine, just as 
if it had been activated by the inter- 
rupt itself. When the next timer in- 
terrupt comes along, the scheduler 
suspends the current subroutine 
and activates a new one, just as if a 
second, higher-priority interrupt 
had come along. The scheduler also 
takes care of some of the overhead 
involved with the interrupt service. 
In particular, it does a context swap 
—it saves all the registers (including 
the instruction pointer) and _ pre- 
serves the running subroutines’s 
stack. (Each task has its own stack, 
just as a well-behaved interrupt- 
service routine should have its own 
stack). A task, then, is different from 
a normal subroutine in that it is 
activated only by the scheduler, not 
by a subroutine call in the common 
sense, and it has its own stack and 
a place to save registers during a 
swap. 

Note that a task is not the same 
aS a process in normal operating 
system parlance. A process usually 
implies a program that is read in 
from the disk and executed by the 
operating system. A task, however, 
is any independently executing 
code. In the case of the kernel pre- 
sented here, a task is a subroutine 
(and the subroutines that it calls) 
that has its own stack and register 
set. That is, it is the stack and regis- 
ter-save area that define the task, 
not the code itself. Several tasks can 
share the same code—provided that 
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C PROGRAMMERS- 
We asked what you 
wanted in a database 
development system and 


RAIMA’S COMMITMENT TO YOU: No Royalties, Source 
Code Availability, 60 days FREE Technical Support and 


we built it! : 7 our 30-day Money-Back Guarantee. Extended services 
db_ VISTA III™ is the database development system for available include: Application Development, Product 
programmers who want powerful, high performance Development, Professional Consulting, Training Classes 


DBMS capabilities ... and in any environment. Based on and Extended Application Development Support. 


the network database model and the B-tree indexing 
method, db_VISTA III gives you the most powerful and HOW TO ORDER: Purchase only those components 


efficient system for data organization and access. From you need. Start out with Single-user for MS-DOS then 
simple file management to complex database structures add components, upgrade ... or purchase Multi-user 
with millions of records. db_VISTA III runs on most with Source for the entire db__VISTA III System. 
computers and operating systems like MS-DOS, UNIX, It’s easy... call toll-free today! 

VAX/VMS and OS/2. It’s written in C and the complete i | a 

source code is available, so your application perfor- _ | —— 


mance and portability are guaranteed! With db_VISTA 
If] you can build applications for single-user microcom- 
puters to multi-user LANs, up to minis and even main- 
frames. 












db__ VISTA III™ Database 
Development System 












ae pooshe st L uece oo on db_VISTA my i ees tied 
‘Aztec, Computer Innovations, Turbo C, db_QUERY $595 - 3960 
___XENIX, and UNIX. db_ REVISE ” $595 - 3960 i 
_ @ LAN systems: LifeNet, NetWare, PC Net- = 
-- work, 3Com, SCO XENIX-NET, other N ™ 
BIOS compatible MS-DOS networks. _ db_ VISTA File Manager Starts at $195 
— Bi ab_quer © SQL-based Quer We'll answer your questions, help 
oe Aico plications, determine your needs and get you started. 






2 CALL TODAY! 
S 1-800-db-RAIMA 


guage patterned J db_REVISE™: The Database : (that’s 1-800-327-2462) 


Restructure Program. 
RAIMA 


isk caching for fast © Redesign your database easily. 
CORPORATION 


* Converts all existing data to revised design. | 
3055 112th Avenue N.E., Bellevue, WA 98004 (206)828-4636 
Telex: 6503018237MCIUW FAX: (206)828-3131 







feature royalty-free run-time distribution, source code 
1 our commitment to customer service. That’s why corporations 
&T, Hewlett-Packard, IBM, Northwestern Mutual Life, UNISYS 
se our products. : : 
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OUR NEW GRAPHICS SOF 
MAY BE A BIT FASTER 





ARE FORCBASE AND R:BASE 
AN WHAT YOU'RE USED 10 


Up until 
now, turning 
the raw data 
of a dBASE 
III/Il PLUS or 
R:BASE file 
into easily 
understood 
graphs and 
charts has 
been anything 
but quick. 

It’s meant plodding back and forth between 
your database and your graphics program, 
through file conversions and translations, until 
you finally got a chart that made your point. 

But now there's a faster route to arresting 
presentation graphics. Now there's DB Graphics. 


THE FIRST GRAPHICS SOFTWARE 
THAT GOES STRAIGHT TO THE HEART 
OF YOUR DATABASE. 

DB Graphics is the only presentation graph- 
ics software designed specifically for dBASE, 
R:BASE and other database software users. 

Since it reads dBASE and R:BASE data- 
bases directly, there are no time-consuming 

» export, import or 
conversion utili- 
ties to fool with. 
DB Graphics can 
also sort and 
group fields and 
use conditional 
operators and 
other powerful 
- database man- 

agement tools 
to precisely select and graphically display the 
data you need. And because it has a direct line 
to your live data, you can modify a graph, or 
choose different data to represent, in an instant. 
MAKE A GRAPHIC IMPROVEMENT 
IN ALL YOUR PRESENTATIONS. 
Even though DB Graphics is more intelligent 





DB Graphics turns raw dBASE III/IIl PLUS and 
R:BASE data files into graphics with no 
conversion, export or import. 
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Yo change the style of a graphic, 
or the data it represents in an instant. 


than other 
graphics pro- 
grams, it’s no 
less attractive. 
It allows you to 
display your 
data in eight 
different graph 
types— pie, 
bar, high/low, 
area, SCatter, 
mixed, column, and line. You can work with 16 
colors and hundreds of vivid combinations of 
textures and patterns. Plus, you can choose 

: » from seven type 
Styles for free text 
and labels. 

In fact, there’s 
really only one kind 
of database presen- 
tation DB Graphics 
isn’t capable of 
‘making. A dull one. 
FOR A TRIAL 

PACK, CALL 
1-800-624-0810 
DEPT. DR1287. 

We could go on about the power, speed 
and accuracy of DB Graphics, but you really need 
to experience it 
for yourself. 

So call our 
toll-free number 
(or from Alaska 
or Canada call 
1-206-867-1800 
Dept. DR1287) 
and order a DB 
Graphics Trial 
Pack for just 
$9.95 today. And 
Start making the © 
most out of 
your database. 
















Powerful database management tools ma 
it easy to get the data you need into a graph. 













CONSGUEATED COMPUTER COMPANY 
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DB Graphics can produce a variety of 
output, including 35mm slides. 


WM_RORIVY 


The only presentation graphics software 
specifically designed for dBASE, R:BASE 
and other database software users. 


ic ‘i 3, Sy , i | ; format. DB Graphics is compatible with the IBM 
DB Graphics also works with Lotus 1-2-3, Symphony, Multiplan and other data management files after translating to the ASCII, dBASE III/IIl PLUS or R:BASE ics is 
PS/2, PC XT AT and 100% compatible personal computers. It supports the IBM VGA, MCGA, EGA, CGA and Hercules display standards. It also supports most popular plotters, graphic printers, camera systems and 


laser printers from IBM, Epson, Hewlett-Packard and many others. © 1987 Microrim. 
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(continued from page 126) 


the code doesn't use static variables. 


Because each task has its own stack, 
and because the program counter is 
saved as part of the context swap, 
the local variables (on the stack) will 
be distinct and each task will re- 
member where it was in the code 
when it’s interrupted. Much of the 
context-swapping code assumes 
that everything is contained in a 
single, 8086, small-model program, 
however. You'll have to play with 
the program a little to make it sup- 
port other models or external pro- 


gram execution. 

Several strategies are used to de- 
termine which task gets control 
when the timer interrupt comes 
along. In round-robin scheduling, 
the various tasks are activated one 
at a time until all of them have been 
executed once, then the processor 
goes around the circle again. In a 
priority-based system, each task is 
assigned a unique priority. All non- 
running tasks are organized into an 
active list. When an interrupt comes 
along, the scheduler compares the 
priority of the running task with 
that of the highest-priority task in 
the active list and, if necessary, puts 





If You Have Turbo C You Have 


Half Your C-Programming Vehicle 




















Turbo C is a great compile 
one vital cog missing — de 
Without it, you have to spr 
lot of energy to go a short di 


Gimpel Software’s C-terp, lon; 
nized as the leading C interpre 
fully supports Turbo C with c 
plete compatibility guaranteed 


Interactive Debugger — Our 
debugging facilities include spl 
screen (code in upper portion, 
dialog in lower), breakpoints 
(sticky, temporary, line/fu 
directed), display of structures 
execution of any expression (even those 
involving macros), function traceback 
with arguments, watch expressions and 
watch conditions (watchpoints). Our 
watch expressions can be structs or 
arrays. We catch out-of-bounds pointers! 


The missing wheel that will 
turn your half-cycle into a bicycle 


C-terp 


No Toy — Full K&R with ANSI enhance- 
ments. Multiple-module with a built-in 
automatic make. It has virtual memory 
option (with optional direct use of ex- 
tended memory) and a shared symbol 


Order C-terp today! 
Call (215) 584-4261 


Introductory Price for Turbo C-terp: 


option for those big programs. It supports $139.00 
graphics, dual displays and the EGA VISA, MC, COD —30 day money back 
43-line mode. eaters guarantee 


Links to external libraries — (both code 
and data, automatically) which can call 
back to interpreted functions. Function 
pointers are compiler compatible. 


C-terp Version 3.0 is also available for the 
following compilers: 

Microsoft, Lattice, Aztec, C86, and Mark 
Williams ($298) and Xenix ($498). 





100% Turbo-C compatible. —Same 
header (.h) files, data alignment, bit field 
orderings and preprocessor variables as 
your compiler. We link in your com- 
piler’s library. 


ug 


GIMPEL SOFTWARE 


3207 Hogarth Lane 


Our reconfigurable editor — is multifile Collegeville, PA 19426 


and comes with a configuration script to 


mimic Turbo’s editor. C-terp is a trademark of Gimpel Software. and Turbo-C of 


Borland International. 
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the running task to sleep and acti- 
vates the top task in the list. It’s 
possible to have a system that com- 
bines both of these strategies—tasks 
with the same priority are executed 
in round-robin fashion but a higher- 
priority task takes precedence over 
lower-priority ones. 

There are two approaches to mul- 
titasking, too, that are useful in dif- 
ferent situations. The method I've 
just described is preemptive multi- 
tasking. The timer interrupt causes 
the next task to preempt the current 
one. You can also have a nonpreemp- 
tive system (such as Microsoft Win- 
dows) in which individual tasks vol- 
untarily give up control when they 
don’t need the CPU anymore. There 
are two advantages to the nonpreemp- 
tive approach. You don't need a 
timer interrupt and CPU time is not 
wasted figuring out that the sched- 
uler doesn’t need to do a context 
swap. On the down side, a task re- 
tains control until it yields (gives up 
control). If the running task crashes, 
the whole system stops. 

Because tasks aren't subroutines 
in the normal sense of the word, 
they can’t pass information to each 
other using arguments and return 
values. Intertask communication is 
then done with a message-passing 
system. The operating system lets 
you create a set of message queues, 
or mailboxes, to which messages 
can be sent. Other tasks can then 
wait at the queue for a message to 
arrive. Several tasks can wait at the 
same queue—they re just given mes- 
sages as they arrive, and each task 
gets one message. If no tasks are 
waiting, an incoming message is 
queued up until a task comes along 
to fetch it. A task that’s waiting for a 
message is suspended—it will not 
be activated by the scheduler until 
a message arrives at the queue— 
though it’s also possible for a task’ 
to time-out—the task is put back 
into the active list if the message 
hasn't arrived within a specified 
time. Once the message arrives, if 
the receiving task is of higher prior- 
ity than the running task, it gets 
control immediately; otherwise, the 
task (and the message) are put back 
into the active list and will be reacti- 
vated in the normal way. Note that 
a mailbox is a data structure that 


contains two queues: a queue of 
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RESIDENT EXPERT Pop-up Reference Guides... 


RESIDENT EXPERT (tm) 


MS-C Version 5.8 


Ee oom 


flinclude <stdio.h> 


char *fgets(str,cnt,strean); 


char *str; 
int cnt; 
FILE *strean: 


==> QUERVIEV <== 


This function reads a string fron 


the input 


stream specified by 


sf] <stream> and stores it in <str>. The 


— 





Try One And Get Our MS-DOS/PC-DOS Guide 


THE POP-UP REFERENCE 
REVOLUTION BEGINS 


How much development time could you save if 
you never had to open another PC language or 
technical reference manual again? What if you 
could just point at a compiler keyword, assembly 
instruction, or function name on your screen and 
with a keystroke have complete, authoritative 
information about language syntax, operands, 
parameters, examples, and much more? 


INTRODUCING THE RESIDENT 
EXPERT SYSTEM 


A growing library of comprehensive, disk 
resident reference guides about the PC and your 
favorite PC languages. All available instantly 
through our unique memory resident pop-up 
access system. 


VIRTUALLY EVERYTHING YOU 
NEED TO KNOW 


Each of our Compiler Reference Guides 
contains virtually everything you need to know 
to program with your preferred implementation 
of your favorite language. Language syntax, all 
library functions, complier directives, and error 
codes are thoroughly documented. 


Our PC Programmer's Reference Guide 
documents every PC (and AT) processor 
instruction and every BIOS and DOS service 
interrupt. You'll also find tables of keyboard 
codes, line drawing, ASCII, and IBM character 
sets, and much more. 


THE SPECIALIST’S LIBRARY 


Your compiler is unique. That's why our 
reference guides are specialized...each one 
designed for a particular vendor’s language 
implementation. 


Absolutely FREE! 


Free With Any Purchase! 


OTiTy Companion Pop-up GuideTo 
MS-DOS 3.2/PC-DOS 3.3 


Limited Time Offer 





QUICK DRAW ACCESS SYSTEM 


Point-and-shoot...just place the cursor over any 
term on your screen. Chances are we ve got it 
fully detailed in one of our data bases. 


Fully cross indexed...if the instruction or library 
function you re using isn't quite right, our related 
topics cross index can help you find a better one. 


Multiple volumes on line...you can have one or 
a dozen of our pop-up reference guides on 
line...a complete library available instantly. 


THE INFORMATION YOU 
NEED...WHERE YOU NEED IT 


Our pop-up shell varies its size and shape 
dynamically, only taking as much space on your 
screen as it needs and it mever covers your 
working area. You can see your work and our 
reference data at the same time. 


A COMPLETE LIBRARY...STILL 
ONLY A BEGINNING 


At Santa Rita, our commitment is to provide the 
most accurate, extensive selection of PC 
language reference materials available. If you 
don’t see one of our guides for your favorite 
language or compiler listed below don't worry, 
we re probably working on it! | 


PC Programmer's Reference Guide... $59.00 
(with Assembly Language Guide) 


Borland turbo C ¢io}............ is, 59.00 
Borland Turbo Pascal (3.0 and below)... .. 59.00 
(with Graphics & Numerical Methods Toolbox) 


Borland Turbo Prolog (/./ and below)... .. 59.00 
(with Prolog Toolbox) 

Lattice C Compiler (3.2 and below)....... 59.00 

Mark Williams LetsC (4.0 and below)... .. 59.00 

Microsoft C Compiler (5.0 and below)... .. 59.00 


Santakita 


For the location of your nearest Santa Rita 
Software dealer, or to order direct, call us at 
1-214-727-9217. Wed like to hear from you. 


Santa Rita Software 
1000 E. 14th Street, Suite 365 
Plano, Texas 75074 


The RESIDENT EXPERT System 





Resident Expert is a trademark of The Santa Rita Company. Borland, Turbo C, Turbo Pascal, and Turbo Prolog are trademarks of 
Borland international Inc. IBM and PC-DOS are trademarks of International Business Machines Corporation. Lattice C isa 
trademark of Lattice Inc. LetsC is a trademark of Mark Williams Company. Microsoft and MS-DOS are trademarks of Microsoft _ 
Corporation. 
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messages and a queue of waiting 
tasks. 

A problem with this communica- 
tions method is deadlock, a situ- 
ation in which two tasks are both 
waiting for messages that can only 
be sent by the other task. That is, 
task A is waiting for a message that 
can only be sent by task B, and at 
the same time, task B is waiting for 
a message that can only be sent by 
task A. A similar situation can arise 
when every task in the system is 
waiting for a message simultane- 
ously. 

Another problem is resource block- 
ing. The DOS I/O system is a good 
example of why this blocking is nec- 
essary. DOS is not reentrant, which 
means that a DOS function cannot 
be called reliably from an interrupt- 
service routine. Put another way, 
once you call DOS, you can’t call 
DOS a second time until the first 
DOS call has finished. Because task 
activation can happen at any time, 
even when youre inside DOS, some 
method is needed to turn off the 
scheduler when a task is doing a 
DOS call. A task blocks to get control 
of the CPU—no other task will be 
activated as long as scheduling is 
blocked. Note that the system will 
halt if scheduling is blocked and the 
running task crashes. 

An alternate approach to blocking 
that doesn't have this disadvantage 
is an exclusion semaphore. An ex- 
clusion semaphore is just a queue 
of length 1. A message is waiting at 
the queue when a resource (such as 
DOS) is available. To use the re- 
source, a task gets the message, uses 
the resource, and then reposts the 
message to free up the resource. 


TE__NOERR 
TE__TOOMANY 
TE__NOMEM 
TE__BADARG 
TE__ TIMEOUT 
Teé_OFULL 


No error 


Time-out 


TE__NOTASKS 
TE__INTERNAL 
TE__DEADLOCK 
TE__STACK 

TE _KILL 


Queue is full 

No tasks to send message 

Internal error 

Delete would have caused a deadlock 
Stack overflow 

Ctri-Break encountered 


This approach has its disadvantages, 
too. If the task that has the resource 
is suspended for some reason, no 
other task can use the resource until 
the task is reactivated. 

Note that, though you can block 
by disabling interrupts, that’s not 
usually a good idea. First of all, on 
the IBM PC you'll mess up the 
system clock, which is interrupt- 
driven. The other problem is the 
console I/O and disk subsystems, 
which are also interrupt-driven. You 
won't be able to send or receive 
characters when interrupts are off. 
You're also likely to mess up your 
disk transfers. If you do disable in- 
terrupts, do it for the shortest time 
possible. Also note that tasks must 
be treated as interrupt-service rou- 
tines. In practice this means that 
you must always block before you 
call DOS. 


Kernel Users’ Manual 

This section is just a users’ manual 
for the kernel subroutines. I haven't 
gone into any implementation de- 
tails, all of which I'll discuss next 
month. 

Several error codes are declared 
in kernel. and are returned by the 
various multitasking subroutines. 
The codes are shown in Table 1, 
below. TE__NOERR has the value 0, 
and the other error codes are small 
negative numbers. In _ addition, 
kernel.h holds typedefs for the TCB 
and T__QUEUE. The former is a task 
control block, used to hold a task’s 
stack and so forth; the latter is a 
message queue. I'll discuss all of 
these codes in greater depth later. 

Various global variables and sub- 
routines are used internally. These 
are listed in Table 2, below. You 
shouldn't use the names in your 
own programs, because, for the 


Maximum number of tasks (32) already exists 
Insufficient memory available 
illegal argument 





Table 1: Error codes declared in kernel.h 
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most part, these variables are not 
useful to an application program. 
The possible exception is T__clock, 
the system clock. T__clock is incre- 
mented on every system clock tick. 
It is not incremented while schedul- 
ing is blocked, however. Because 
T__clock is an unsigned long, roll- 
over is not a problem. If you assume 
the default of 18.2 ticks/second, the 
clock will roll over after about 65,552 
hours (about 7.47 years): 


((Oxffffffff/18.2)/60)/60 = 65,552 hours 
65,552/24/365.35 = 7.47798 years 


Of course, this number will scale 
with faster tick rates, but the resolu- 
tion should be OK for all reasonable 
tick rates. The other variable of pos- 
sible interest is T__numtasks, which 
holds the number of tasks that have 
been created so far. 

There are a few additional consid- 
erations. The Microsoft compiler in- 
serts a call to a subroutine called 
__chkstk() at the head of every sub- 
routine. This can cause problems 
because a task is running on its own 
stack, not on the one that —__chkstk() 
expects it to be using. The problem 
is solved by t_start(), which re- 
places the default —chkstk() with 
its own version. The new version 
checks the current stack pointer 
against the base of the task’s local 
stack. If a stack overflow happens, 
multitasking is terminated and 
t__start() will return an error code 
(see later). 


Starting and Stopping 
Multitasking 

A typical program will first create a 
few tasks (I'll look at how in a 
moment) and then start up the mul- 
titasking environment. (Tasks can 


TCB *T__active; 
unsigned long T__clock; 

int T__numtasks; 
T__ QUEUE *T__queues; 

PQ *T__tasks; 

void __t__reschedule( ); 
__t__install( ); 
__1_swap__in{ ); 
__t__shazam( ); 
__t__speedup( ); 
__t__slowdown( ); 


void 
void 
void 
void 
void 


Table 2: Global variables and sub- 
routines used by kernel.h 
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C CHEST 
(continued from page 132) 


create other tasks, too. They don't 
all have to exist before multitasking 
is started.) Multitasking is started 
with a call to: 


int t__start( speedup ) 
int speedup 


Speedup is a system-clock speedup 
factor. If it’s 0, then the system will 
not be preemptive and tasks will 
have to yield (either with a call to 
t__yield() or by waiting for a mes- 
sage) to give up control of the CPU. 
A speedup factor of 1 uses the de- 
fault PC clock rate (roughly 18.2 in- 
terrupts/second). A factor of 2 is 
twice as fast (36.4 interrupts/second). 
If the factor is too large, the system 
will actually slow down because it 
will start missing interrupts. It’s best 
if the speedup factor is a power of 2. 

At least one task must have been 
created prior to the t_—start() call. 
Control passes immediately to the 
highest-priority task. T__start() re- 
turns either when all tasks are de- 
leted or when t__stop() (discussed 
later) is called. TE__NOTASKS is re- 
turned if no tasks exist initially— 
multitasking is not started in this 
situation. TE__NOERR is returned 
when all tasks have been deleted 
successfully. No tasks can be wait- 
ing on queues. This is the normal 
way to return. TE__STACK is re- 
turned as soon as a stack overflow 
in any task is detected. T__active 
will point at the TCB of the offend- 
ing task. 

TE__DEADLOCK is returned when 
the only active task in the system 
deletes itself. Other tasks exist but 
they're all pending on queues. That 





idle (\sc128\) 
ft 
int €. i; 


do { 

for( i = 1000; 
t_cli(\scl28\); 
t = T_numtasks; 
t_sti(\sc128\); 


} 
while(t > 1); 


t delete( NULL ); 


Example 1: A typical idle task 
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--i>=0 ; ) 


is, there must always be at least one 
running task in the system. To ac- 
complish this, a very-low-priority 
idle task is often created. This task 
doesn’t do anything but spin 
around; it’s only active when all 
other tasks are doing something 
else, and it deletes itself when it’s 
the only task left in the system. A 
typical idle task is shown in Exam- 
ple 1, below. 

If TE__NOERR is returned, then 
all memory allocated to the tasks 
will have been restored to the heap; 
otherwise, if one of the above errors 
was returned, T__active will point at 
the TCB of the offending task. Other 
return values are possible if a task 
calls t__stop() directly (see later). 

A panic abort from the multi- 
tasking environment can be accom- 
plished with a call to: 


t__stop( errcode ) 
int errcode; 


Multitasking is turned off, and con- 
trol passes back to the routine that 
called t__start( ) (immediately follow- 
ing the t—start() call). That is, 
t_.stop() forces  t-_start() - to 
return—it does not itself return. 
Errcode is passed back to the call- 
ing routine as the return value of 
t__start(). The process is analogous 
to a Unix exit() call, which doesn’t 
return and whose argument is 
passed back to a wait() call in the 
parent process. 


Creating and Deleting Tasks 
Tasks are created with a call to: 


TCB *t__create( subr, tag, priority, 
stack__size, ..., NULL) 


int (*subr)( ); 


/* Clear interrupts */ 
/* t = 
/* restore ints. */ 


# of tasks */ 


/* delete self */ 


char *tag; 
unsigned priority; 
int stack__size; 


Subr is a pointer to the subroutine 
that forms the main module for the 
task. Tag is a string used to identify 
the TCB—it’s used only for debug- 
ging. Priority is the task’s priority— 
the higher the number, the higher 
the priority. Priorities should be in 
the range 0-255. If more than one 
task has the same priority, the tasks 
are executed in a round-robin fash- 
ion. Stack__size is the stack size (in 
16-bit words) for this task only. Note 
that a few Microsoft functions (such 
as printf{)) use up _ inordinate 
amounts of stack. If you're going to 
call Microsoft library routines, you'll 
need at least 1K stacks (stack__size 
of 512). 

The remaining arguments are a 
NULL-terminated list of pointer-size 
arguments that will be passed to the 
task at start-up. (More on this in a 
moment.) 

T__start() forces a reschedule. 
That is, if the task that you're creat- 
ing is of higher priority than the 
running task, the new task will get 
control immediately. 

A pointer to the created TCB is 
returned normally. This pointer is 
useful if you want to delete the task 
later. Error return values are 
TE__TOOMANY (maximum number 
of tasks [32] already exists) and 
TE__NOMEM (insufficient memory 
available to create task). 

An example of task creation is 
shown in Example 2, page 137. Here, 
a single task called foo() is created 
in main(). It is of priority 10 and has 
a 512-word (1K) stack. The remain- 
ing arguments are passed to foo() 
when the task starts up. Foo() will 
print its arguments and delete itself. 
(It prints “hello world.) 

Note that a task should never 
return in the normal way. It should 
always delete itself rather than re- 
turning. If a return is executed 
(either explicitly or implicitly by fall- 
ing off the bottom of the subrou- 
tine), then t__stop() is called imme- 
diately (with a garbage argument). 

A task’s priority can be changed 
at any time with a call to: 


int t_chg_priority( tp, new__prior- 
ity ) 
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CHEST 
(continued from page 134) 


TCB *tp; 
int new__priority; 


Like t__create(), this routine forces 
a reschedule. If the task was waiting 
on a message, it is immediately 
timed-out and put back onto the 
active list. A task may change its 
own priority. This routine returns 
TE__NOERR normally and 
TE__BADARG if the task doesn’t exist 
or if the priority of the task is greater 
than 255. : 
Tasks are deleted with a call to: 


int t__delete( task )} 
TCB *task; 


which also frees all memory associ- 
ated with task. Note that memory 
that the task itself allocates (via a 
malloc() call or equivalent) is not 
freed—only the memory _ that 
t__create() allocated (for the stack 
and so forth) is released. A task may 
delete itself with a t__delete(NULL) 
call. T__delete() forces a reschedule 
when the current task is deleted. 
Return values are TE_NOERR on 
success and TE__BADARG if the task 
doesn't exist. 


Messages 

Three routines are used to create 
message queues (mailboxes) and for 
passing messages between tasks. 
Queues are created with a call to: 


T__QUEUE *t__makequeue( size ) 
int size; 


Size is the maximum number of 
messages that can be waiting in the 
queue. Any number of tasks can wait 
at a queue, however. Normally a 
pointer to the queue is returned, 
but TE__NOMEM is returned if 
there's insufficient memory. The 
queues are linked into a linear list 
that is searched for timed-out tasks 
on every system clock tick, so it’s 
best to create the most active 
queues first. 

Messages are sent from a task to a 
queue with a call to: 


int t_send( q, msg ) 
T__QUEUE “gq; 


| void *msg; 
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where gq is a pointer returned from 
a previous t__makequeue() call and 
msg is a pointer to the message. The 
pointer, not the message, is stored, 
so the messages can be anything 
you want. Typically, msg will be a 
pointer to a structure or a string. 
The message itself must be in static 
memory. 

If no tasks are waiting at the 
queue, t_send() returns immedi- 
ately; otherwise, the message is at- 
tached to the task and the sched- 


_uler is called. This means that if the 


waiting task is of higher priority, 
control will be taken away from the 
task that sent the message and given 
to the waiting task. TE__NOERR is 


foo( a, 
char *a, 


{ 


b ) 
*b> 


€ printi ("ts $s\n", a, b ); 
t_delete( NULL ); 


} 


main ({\scl128\) 
{ 


returned normally. Error returns are 
TE__BADARG on a bad g argument 
and TE__OFULL if the queue is full. 

The other side of the message- 
passing system is: 


void *t__wait( q, timeout ) 
T__QUEUE “*q; 
int timeout; 


which is used by a task to wait at a 
queue for a message to arrive. QO is a 
pointer returned from a_ previous 
t__makequeue() call and timeout is 
a time-out value. The task will only 
wait for timeout system clock ticks 
before it is put back onto the active 
list. (Remember, though, the clock 


€ create( f00,"foo", 10, 512, “hello”, "world", NULL); 


{ Starct( 2); 
} 





Example 2: An example of task creation 
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C CHEST 
(continued from page 137) 


won't tick when the scheduler is 
blocked). The maximum time-out is 
32,767 clock ticks (that’s about half 
an hour at 18.2 ticks/second). If the 
time-out is 0, t_wait() returns im- 
mediately (without a reschedule) if 
no messages are waiting in the 
queue. 

Message requests are queued up 
in order received, without regard to 
priority. I've done this both because 
it’s easy and because, in most appli- 
cations, tasks with different priori- 
ties will not be pending on the same 
queue. 

If a message is present in the 
queue, t__wait() immediately returns 
the pointer to the message (the 
same pointer as was passed into 

















#include <stdio.h> 
#include <tools/video.h> 
#include "kernel.h" 


#define TEST 3 /* l 
* 2 
* 3 
*/ 


iow tt 


T QUEUE *Queuel; 
T QUEUE *Queue2; © 













main(\sc128\) 
{ 


int status = 0; 


int 








if( ! (Queve2 = 


#if (TEST == 1) 
status 
status 
status 

#fendif 










tow tt 


t start ( 0 }; 


#if (TEST == 2) 
status 
status 
status 

#endif 










t start( 2 ); 









#if (TEST == 3) 
status = 
status = t start( 2 ); 

#endif 







t sstats (\scl128\); 


nonpreemptive test, 
preemptive test: simple timer 
test round-robin scheduling 


long t_numint (\scl28\), t_numblk(\sc128\); 
sam(\scl28\), dave(\scl28\), timer(\scl28\), 


if( !(Queuel = (T QUEUE *) t_makequeue( 2 ) ) ) 
printf("Can't make Quevel queue\n"), exit(1); 


(T QUEUE *) t makequeue( 2 ) ) ) 

printf("Can't make Queue2 queue\n"), exit (1); 

(int) t_create(sam, "sam", 100, 512, "SAM", NULL); 
(int) t create(dave, "dave", 50, 512, "DAVE", NULL); 


(int) t_create(timer,"timer",10, 512,"timer",NULL); 
(int) t _create(idle, “idle”, 1, 100, 


(int) t_create(maintask, "maintask",200, 512, NULL); 


t_perror( "\ndone: ", status ); 


printf ("%ld interrupts, tld blocked\n", t_numint(\scl28\), 


t__send() ) without a reschedule; oth- 
erwise, the current task is sus- 
pended (removed from the active 
list) until a message arrives. 

Normally, a message pointer is re- 
turned. Error return values are 
TE__TIMEOUT (on a time-out or if 
the timeout argument is 0 and no 
message is waiting) and TE__NO- 
TASKS (if the current task is the only 
running task—a guaranteed dead- 
lock). 


Blocking and Yielding 

Four subroutines are provided to 
support blocking: void t__cli();, void 
t__sti();, void t__block();, and void 
t__release( );. 

T__cli() and t__sti() disable and 
enable interrupts. Use these advis- 
edly. Interrupts should never be off 
for extended periods. They should 


idle(\scl128\), 
maintask; 






NULL) ; 


t_numblk(\scl2; 


Example 3: A program that creates queues, starts multitasking, and 
performs three tests 
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never be off when you're using the 
DOS I/O functions. 

T__block() and t_release() are 
more reliable. T__block() disables 
the scheduler but not the normal 
clock interrupt. That is, the current 
task retains control of the system 
once t__block() is called. Because 
interrupts are not disabled, this is a 
much safer routine to use than 


_t__cli(). There is one caveat, how- 


ever. If a normal interrupt happens 
while interrupts are disabled, the 
hardware will execute the interrupts 
as soon as they're enabled again. 
This is not the case with t__block(). 
That is, the scheduler does not 
know whether an interrupt hap- 
pened while it was blocked. Conse- 
quently, a tight loop such as this: 


while( *str ) 

{ 
t__block\( ); 
putchar( *str+ + ); 
t__restore( ); 


} 


won't work as expected. Because so 
little time elapses between the t__re- 
store() and the next t__block() call, 
the odds are that an interrupt will 
never occur while the scheduler is 
active. That is, the following will prob- 
ably work in just the same way as 
the previous example: 


t__block( ); 
while( *str ) 

putchar( *str+ + ); 
t__restore( ); 


Note that a t__cli() can disrupt the 
DOS system clock (time will be lost) 
while interrupts are off; t_block() 
doesn't have this limitation. 

The final control-related subrou- 
tine is void t__yield();. This routine 
puts the current task to sleep and 
activates the task that has the next- 
highest priority. Note that the cur- 
rent task is always suspended, even 
if it's the highest-priority task. It will 
get back control on the next timer 
interrupt in this case, however. 
T__yield() is used primarily when 
the scheduler is blocked or when 
you're running a nonpreemptive 
system. It’s also useful when a high- 
priority task doesn’t do much and 
doesn’t want to hog the CPU. 
T__yield returns TE__NOERR when 
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the yield was successful and TE__NO- 
TASKS if there were no tasks to 
which to give control. 

Note that tyield() normally 
doesn't return until after it regains 
control of the system. That is, the 
normal control flow goes like this: 


1. A task calls t_yield(). 
2. The second task is activated. 

3. The second task is suspended. 

4. Control goes back to the original 
t__yield 


task and 
TE__NOERR. 


returns 


Statistics 

Several debugging and statistics rou- 
tines are provided. Two routines are 
useful for debugging: 


t__tprint( t ) 
TCG 


t__gprint( q ) 
T__QUEUE “*q ; 


T__tprint() is passed a TCB pointer, 
and it prints the TCB in human- 
readable form to standard output; 
t__gprint() does the same for the 


has an attractive 


queues. 

Several statistics routines are also 
useful: long t__numint(); returns the 
number of unblocked interrupts, 
and long t__numblk(); returns the 
number of blocked interrupts. Fi- 
nally, t__sstats() prints various sched- 
uler-related statistics (the number 
of times the scheduler was called, 
the number of time-outs, and the 
number of context swaps done by 
the scheduler). This routine should 
not be called from a task (because it 
uses printfl) ). 


Miscellany 

int t__second() 

Returns the number of system clock 
ticks in a second, given the speedup 
factor passed to t_start(). It re- 
turns 0 if the speedup factor was 0. 
In this case, a t_wait() call will 
never time-out. 


char *t__errlist[ ] 

Works like the normal errlist/ ] that’s 
supported by most C compilers. In- 
dexed by error code, it evaluates to 
a string that holds an appropriate 
error message. 





t__iserr(x) 
Returns true if x is an error code 
and false otherwise. 


t__perror( str, errcode ) 

char *str; 

Prints an error message. If errcode 
is an error code, it prints an appro- 
priate message; otherwise, it prints 
status XXX, where XXX is errcode 
represented as a decimal number. 


t__printfl fmt, ...) 

char *fmt; 

Works like printf{) except that it 
blocks before printing anything. 


T__PRIORITY<a,b) 

TCB *a; *b; 

This macro, which is in kernel.h, 
compares the priorities of the two 
tasks. It returns a negative number 
if a's priority is less than b’s, 0 if the 
priorities are the same, and a posi- 
tive value if task b is of higher prior- 
ity than task a. Note that a task’s 
priority takes into consideration 
both the priority passed _ to 
t__create() and the time at which 
the task was last suspended. That is, 
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personality. 


“A while back | got a SemiDisk to help me with 
my database work. A SemiDisk is like a RAM- 
disk only a whole lot better. It doesn’t sit in my 
main or EMS memory, and, using the Battery 
Backup, it’s like permanent storage. 


“That SemiDisk makes light work of the jobs 
that were sending my hard disk to an early 
grave. And SemiDisk has no head to crash; 
no moving parts to wear out. With all the time 
it saves me, | figure it paid for itself in just a 
couple of months. 


“Then | heard programs like Microsoft Win- 
dows could use my SemiDisk for temporary 
files instead of using EMS. So | moved them 
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over to the SemiDisk, too. The quiet speed of 
it is almost elegant! 


“My boss wanted to try my SemiDisk on the 
company LAN server, but | told him to get his 
own. A couple of days later, he was wearing 
a grin as big as mine. | guess he likes his 
SemiDisk too. 


“One morning | booted up my computer and 
there was my word processor waiting for me 
on the SemiDisk. | swear | didn’t put it there! 
After | tried it, | knew it was there to stay. 


“Meanwhile, I've found a new use for my hard 
disk, too. It's great for backing up my 
SemiDisk!” 


CIRCLE 205 ON READER SERVICE CARD 





I/O mapped SemiDisk goes in standard PC, XT or 
AT expansion slot. Priced at just $495 for 512K, 
$795 for 2Mb. Battery Backup $130. Up to 8Mb 
per drive. Call or write for further information or 
to place an order. 


SemiDisk 
End the waiting. 


SemiDisk Systems, Inc. 
P.O. Box GG 
Beaverton, OR 97075 
(503) 626-3104 
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dave( arg ) 
char ‘*arg; 
{ 


char *s; 


t_printf( "In dave(%s), about to wait for message\n", arg ); 


if( t_iserr(s = t_wait(Queuvel, 100)) ) 
t perror("dave: first wait call", (int) s }; 
else 
: t_printf( "dave: got <%s> from Queuel\n”, s ); 


if( t_iserr(s = t_wait(Queuel, 100)) ) 

t perror("dave: first wait call", (int) s );7 
else 

t printf( "dave: got %s from Queuel\n"™, s ); 


t_printf ("dave: yielding\n") ; 
t_ yield(\scl28\); 


t printf("dave: deleting self\n"); 
t_delete( NULL ); 


Example 4: The task sam() 


sam( arg ) 
Char “arg; 
{ 


int err; 

t_printf( "In sam(%s), yielding: no messages\n", arg); 
t_yield(\sc128\); 

t_ printf( "sam: back from yield, sending messages\n") ; 


if( err = t send( Queuel, “lst message”) ) 
t perror( "Foo: sending Ist message”, err }? 


if( err = t send( Queuel, "2nd message”) ) 
t_perror( “Foo: sending 2nd message", err ); 


if( err = t_send( Queuel, "3rd message") ) 
t_perror( "Foo: sending 3rd message", err ); 


t_printf("Foo: yielding again\n"); 

t_ yield(\sc128\); 

t printf ("Foo: Returned from 2nd yield, deleting self\n"); 
t d@lete( NULL ); 





Example 5: The task dave( ) 





In sam(SAM), yielding: no messages 

In dave (DAVE), about to wait for message 
sam: back from yield, sending messages 
dave: got <lst message> from Queuel 
dave: got 2nd message from Queuel 

dave: yielding 


Foo: yielding again 


dave: deleting self 
Foo: Returned from 2nd yield, deleting self 
done: No error 


Scheduler called 0 times: 0 tasks timed-out, 0 context swaps 
O interrupts, 0 blocked 


Example 6: Output from test 1 Example 3 
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if two explicit priorities are the 
same, then the task that was sus- 
pended most recently is considered 
to be of lower priority than the ear- 
lier task. This mechanism makes 
round-robin scheduling easy to im- 
plement because tasks will move to 
the bottom of the list as they're 
suspended. 


Some Examples 

Let’s look at a few examples. First, 
main() must create a couple of 
queues and start up multitasking. 
I'll use a.common main() module 
for all the examples, which are 
shown in Example 3, page 138. One 
of three tests is performed, depend- 
ing on the value of the TEST macro. 
Two queues, both of length 2, are 
created at the top of the subroutine. 
Then a few tasks are created and 
multitasking is started up with a 
t__start() call. Finally, after control 
returns from t__start, various statis- 
tics are printed. 

Now let’s look at the individual 
tests. Test 1 exercises the nonpreemp- 
tive mode and demonstrates mes- 
sage passing. The two tasks, sam() 
and dave(), are shown in Examples 
4 and 5, left. They both print their 
start-up arguments (from the origi- 
nal t_—start() call) and then pass 
several messages back and _ forth. 
Note that, though I’m _ passing 
strings as the messages, you could 
pass pointers to anything. Both the 
t_wait() calls and the t_yield() 
calls cause control to be passed be- 
tween tasks. Also, sam() intention- 
ally tries to enqueue too many mes- 
sages to see if the error mechanism 


-is working properly. The output 


from the program is shown in Exam- 
ple 6, left. Note that all the statistics 
at the bottom of the output are 0 
because the system isn't preemp- 
tive. 

The next test is a small timer. It 
uses the idle() task that I looked at 
earlier. The timer() task is shown in 
Example 7, page 141. It prints a start- 
up message and then enters a for 
loop that executes five times. The 
t__wait() call times-out after one 
second because nobody's sending 
any message to the queue. Conse- 
quently, the timer will print five ex- 
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clamation points, one every second, 
and then delete itself. 

The third test is shown in Exam- 
ple 8, below. This test demonstrates 
several things. First of all, main() 
creates only one task, maintask(), 
which in turn creates two more 
tasks. Note, however, that both of 
these tasks use the same code! This 
is possible because every task has its 
own stack. Several tasks can share 
the same code, provided that they 
don't use static variables (the local 
variables will be on physically dis- 
tinct stacks). Here, the task identifies 
itself by looking at its argument and 
it prints that argument every so 
often. The dv__putchar() subroutine 
is a direct-video output function, 
any of these functions will do. I 
generally use direct video in multi- 
tasking applications because going 
through DOS is so unpredictable (it 
messes with the interrupt system). 
Because the two tasks are of the 
same priority, they'll be executed in 
a round-robin fashion—five seconds 
of alternating 1s and 2s will be 
printed on the screen. 

So that’s how to use the subrou- 
tines. I'll look in depth at how they 
work next month. 


Meaner Than Ever 
Kevin Jennings writes: 

“I read with some interest your 
column in the May 1987 issue of 
DDJ regarding the calculation of 
sample means. There is indeed a 
simple algorithm for computing the 
true mean of a set of data points on 
the fly. I've included both a block 
diagram [Figure 1, page 142] as well 
as a C function that implements it 
[Example 9, page 142—1I've taken the 
liberty of making Kevin's code a little 
more efficient—Allen]. Call mean() 
with reset true the first time; thereaf- 
ter, call it with reset false and data 
holding the current sample. The 
subroutine returns the running 
mean. 

“The data comes in, one sample 
at a time, and is represented in the 
block diagram at Z(t). The algorithm 
computes a gain to apply to the 
difference between this measure- 
ment and what the filter thinks the 
measurement should be. This gain 
[K(t)] is then added to the previous 
estimate to give a new estimate. If 
equation 2 is rearranged as: 
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xhat(t) = (1-K(t))xhat(t—1) + K(t)Z(t) (3) 


and you look at what K(t) does as 
the samples come in, you should be 
able to convince yourself that this 
algorithm does indeed return the 





timer (\se128\) 
{ 


int i: 


t_printf ("Starting up timer\n") ; 


for( i = 5; --i >= 0 ; ) 
{ 
© Peinctit (1° j; 


} 





t delete( NULL ); 
} 
#endif 


Example 7: The timer( ) task 


| timer( arg ) 


t_wait( Queue2, t second(\scl28\) ); 


t_ printf ("Deleting timer\n") ; 


sample mean of all data received 
from the time that the filter is reset 
up to the current measurement. I 
don’t recommend that you actually 
implement equation 3, however, be- 
cause it’s inherently less accurate 











/* I'm assuming that pointers & ints are 


* the same size here. 


x7 





int i; 


while( 1 ) 
{ 
for( i = 10000; 


t cli(\scl28\); 
dv putchar( arg + ‘0' ); 
t_sti(\sci28\); 


maintask (\scl128\) 
{ 


TCB *ti, *t2; 





tl = t _create( timer, 
t2 = t create( timer, 


t perror( “taski:", 
t perror( *“task2:", 


--j >= 0 ;> 


"lst timer”, 
"2nd timer", 


) 


100, 5l2, 
100, $i2, 


(void*)1, NULL); 
(void*)2, NULL); 


(int)tl }; 
(int)t2 ); 


t_wait( Queue2, 5 * t second(\scl28\) ); 


t delete{ ti );: 
{ delete( t2 ); 
t_delete( NULL ); 


Example 8: Test 3, used in Example 3 
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than is 2. Statisticians will recognize 
this algorithm as a least-squares esti- 
mator. It’s also called a Kalman filter 
in digital signal processing. 

“Note that it’s more convenient to 
update the reciprocal of the gain 
[1/K(t)] than to update K(t) directly. 
Because the reciprocal takes on only 
positive integer values, it's tempting 
to declare ki as unsigned int, but 
then ki would wrap to 0 when it 
reached the maximum value for un- 
signed int (65,535, given a 16-bit int). 
You'd have to correct for the wrap- 
around by holding ki at its maxi- 
mum value once it’s reached. There- 
after, the algorithm would no longer 
give you the exact mean, but no 


xhat(t—1) 


1/K(t)=1+1/K(t-1) 


xhat(t) = xhat(t— 1) + K(t)( Z(t)—xhat(t—1)) 


other algorithm would either. You're 
just trying to process too much data. 
I snuck around this difficulty by 
declaring ki as double. (Doubles typi- 
cally don't wrap when they over- 
flow). In any event, because you have 
to do a floating-point divide to cal- 
culate the mean, there’s no advan- 
tage in storing ki in an unsigned int 
because the compiler would have to 
convert it to double to do the arith- 
metic.” 

Kevin doesn’t point out that the 
algorithm as implemented requires 
several floating-point operations, so 
it's slower than the exponential 
smoothing algorithm I presented in 
May, which used nothing but shifts 
and addition. On the other hand, 
the Kalman filter has an appealing 
simplicity and is more appropriate 


: 1/K(—1)=0 (1) 
:xhat(—1)=0 (2) 





Figure 1: Block diagram of an algorithm that computes the true mean of 
a set of points on the fly 









double mean(reset, 
int reset; 
double data; 
{ 

static double xhat, 


data) 


ki; 


s 
ta 


return reset ? (ki = xhat 
(xhat += (data \sc0O\ xhat) / ++ki) 

















= 0) 


Example 9: A C function that implements the algorithm shown if Figure 1 
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than exponential smoothing in 
many applications. It’s certainly 
more accurate for small numbers of 
samples. Don't be tempted, by the 
way, to change the doubles into 
floats. Most C compilers convert all 
floats to doubles whenever they're 
used in an expression. Consequently, 
it takes longer to multiply two floats 
than it does to multiply two doubles 
because you have to convert them 
to doubles, do the arithmetic, and 
then truncate back down to floats 
to store the result. Moreover, any 
space savings that you get by using 
floats are usually lost in the addi- 
tional code needed to do the type 
conversion. 


Availability 

All the source code for the multi- 
tasking kernel described both this 
and next month (including the pri- 
ority-queue stuff) is available for $30 
on an IBM-PC 5?/4” disk from Soft- 
ware Engineering Consultants, P.O. 
Box 5679, Berkeley, CA 94705. In- 
clude local sales tax if you're or- 
dering from California. In addition 
to the kernel code and the priority 
queue routines, the disk includes 
an enhanced version of the curses 
window I/O package described in 
the July 1987 C Chest. Because the 
enhanced curses uses direct video 
reads and writes rather than going 
through DOS, it’s useful in multi- 
tasking applications that can’t use 
the DOS I/O functions. This version 
of curses supports overlapping win- 
dows (though you can only write to 
the top one) and lets you delete and 
move windows. In addition, it lets 
you create boxed windows (Unix's 
curses doesn't). 


DDJ 


(Listings begin on page 110.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 6. 
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source code, of course 
C Source Code 


FSP (screen manager) PO Woes Sie ee es ag we SEL Ge Gs $400 
Barcode Generator (specify ade 39 ialell ennerte) Interleaved 2 of 5 (numeric), or UPC) $300 
GraphiC 4.0 (high-resolution, DISSPLA-style scientific plots in color & hardcopy) $275 
Vitamin C (MacWindows) .. . aa ih ee $200 
Essential C Utility Library (400 sete C functional me erae fo $160 
Essential Communications Library (C functions for RS-232- boned coxigrgniiationt <yeoerne) $160 
Panache C Program Generator (screen-based database management programs) $150 
PC/IP (CMU/MIT TCP/IP implementation for PCs) . ae $100 
B-Tree Library & ISAM Driver (file system utilities by Séftfocus) ; $100 
The Profiler (program execution profile tool) : $100 
Entelekon C Function Library (screen, graphics, Riis: shat. rs ete. ) $100 
Entelekon Power Windows (menus, overlays, messages, alarms, file handling, etc.) . . . $100 
QC88 C compiler (ASM output, small model, no longs, floats or bit fields, 80+ function brary) $90 
CBTree (B+tree ISAM driver, multiple rial length keys) , eeha~ oe oe $80 
ME (programmer’s editor with C-like macro language by Magma Sefiwraze) $75 
Wendin PCNX Operating System Shell eee ow. $75 
Wendin PCVMS Operating System Shell . $75 
Wendin Operating System Construction Kit ; $75 
EZ_ASM (assembly language macros bridging C and MASM) . ae $60 
Multi-User BBS (chat, mail, menus, sysop displays; uses Galacticomm —— ead: $50 
Make (macros, all languages, built-in rules) $50 
Vector-to-Raster Conversion (stroke letters & Taiiconhe 4010 codes io bitmaps) $50 
Coder’s Prolog (inference engine for use with C programs) , hs $45 
PC/MPX (light-weight process manager; includes preemption and monsuties Sacksuen! $45 
Biggerstaff’s System Tools (multi-tasking window manager kit) $40 
TELE Kernel (Ken Berry’s multi-tasking kernel) $30 
TELE Windows (Ken Berry’s window package) . oe oe, $30 
Clisp (Lisp interpreter with extensive internals Pacamautsbien) $30 
Translate Rules to C (YACC-like function generator for rule-based bene $30 
6-Pack of Editors (six public domain editors for use, study & hacking) . $30 
ICON (string and list processing haan Version 6 and pci te $25 
LEX (lexical analyzer generator) , $25 
Bison & PREP (YACC workalike parser soateciieciens & dctebues grammar 7 Pheprecessie’ ; $25 
C Compiler Torture Test (checks a C compiler against K & R) $20 
PKG (task-to-task protocol package) ae ey ee ee $20 
A68 (68000 cross-assembler) ae $20 
Small-C (C subset compiler for 8080 ah 8088) $20 
tiny-c (C subsubset interpreter including the tiny-c shell) $20 
Xlisp 1.5a (Lisp interpreter including tiny-Prolog in Lisp) $20 
List-Pac (C functions for lists, stacks, and queues) $20 
XLT Macro Processor fecnardl purpose text translator) acag $20 
C Tools (exception macros, we, pp, roff, grep, printf, hash, Sadhane. Ponnet. Pusenl-te0) $15 
Data 

DNA Sequences (GenBank 48.0 of 10,913 sequences with fast similarity search program) . $150 
Protein Sequences (5,415 sequences, 1,302,966 residuals, with similarity search program) . $60 
Webster’s Second Dictionary (234,932 words) Ue aes pa ik 30 , $60 
U.S. Cities (names & longitude/latitude of 32,000 U. s. ithe sid 6 000 staré bounding acm) $35 
The World Digitized (100,000 longitude Aadibads of world country botindaries) $30 
KST Fonts (13,200 characters in 139 mixed fonts: specify TeX or bitmap fone $30 
NBS Hershey Fonts (1,377 stroke characters in 14 fonts) se Soe Wea he $15 
U. S. Map (15,701 points of state boundaries) $15 

The Austin Code Works 
11100 Leafwood Lane 
Austin, Texas USA 78750-8409 
(512) 258-0785 
FidoNet 382/12 

Free surface shipping on prepaid orders MasterCard/VISA 
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COLUMNS 


THE FORTH COLUMN 


New Forth Sources, a Bibliography, 
and String Extensions for Forth—83 


n the news this month is FORCE, 

Harris Semiconductor’s version of 
the Novix NC4016 Forth processor. 
FORCE stands for Forth-optimized 
RISC computing engine. Chuck 
Moore’s original hardware design 
has been copied into the Harris cell 
library, where it can be rapidly 
moved to various semiconductor 
technologies. Harris has fixed the 
NC4016 bugs and has added some 
extra features, such as byte addressa- 
bility. FORCE is intended to be the 
smart heart of custom VLSI chips for 
knotty problems with high-speed so- 
lutions. 

According to Dave Williams of 
Harris, a FORCE-based, real-time con- 
trol processor (RTCP) will be avail- 
able in the first quarter of 1988. The 
RTCP chip will contain an interrupt 
processor, 256-word data and return 
stacks, and a 16 X 16 hardware multi- 
ply. (Rumor has it that it will be 
offered on an IBM PC card shortly 
thereafter.) Dave says the chip will 
run at 15 MHz, or more than 15 
million instructions per second. 
FORTH Inc. intends to support the 
chip with a variation of the same 
polyFORTH it developed for the 
Novix NC4016. This Forth includes 
an optimizing compiler that can 
pack sequential instructions together 
so that they run simultaneously. It 
also includes extensive fixed, frac- 
tional, and floating-point math sup- 
port and a flexible nonlinear curve 
fitter (the mathematical equivalent 
of a monkey wrench). 

Speaking of Forth chips, Dr. C. H. 


by Martin Tracy 


Ting’s More on NC4000, Volume 5, is 
now available. This newsletter con- 
tains 80 pages of technical nitty 
gritty on the Novix NC4016 (origi- 
nally numbered the NC4000). 
Volume 5 contains a reprint of “The 
FORCE Toolbox” by Dave Williams 
of Harris Semiconductor. You can 
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order More on NC4000 for $15 from 
Offete Enterprises Inc. at (415) 574- 
8250. Back issues are still available. 

Also available from Dr. Ting at 
Offete is the F83 Reference Manual 
(1987). This is strictly a reference 
manual and is meant to accompany 
the popular public-domain Laxen/ 
Perry F83 Forth. Words are arranged 
by topic, and each word has a one- 
line description. A total of 400 words 
are described in 40 pages, which 
include an index and a complete 
catalog of Offete’s other publica- 
tions—all this for only $10. 

What’s surprising is not that 400 
words are included but that more 
than 600 words are left out! (The 
Forth-83 Standard only requires 
about 200 words.) To quote Dr. Ting: 
“The only problem with F83, like 
any good looking and hard working 
wife, is that it is too wordy.” 


GENie Forth Forum 

The GENie (General Electric Network 
for Information Exchange) Forth 
Forum is now in operation. This 
new Forth-oriented bulletin board 
is sponsored by the Forth Interest 
Group (FIG). GENie is reportedly the 
largest electronic information ex- 
change network, with local-access 
phone numbers from most major 
cities. 

Alan Furman writes: “Use 1,200 
bps, even parity, 7 bits, 1 stop bit, 
half-duplex (echo on). Dial up the 
sign-on modem line: (800) 638-8369. 
It helps to record the session on 
disk as there is a lot of scrolling off. 
After CONNECT, type HHH (without 
CR) or just wait 5-10 seconds. The 
U#= prompt will come on. At the 





prompt, type XJM11849,GENIE (and 
a CR). When the menu comes on, 
get the local node and billing infor- 
mation before signing up.” 

Signing up with this number re- 
sults in the FIG member's discount 
deal: first three hours free (but regu- 
lar $18 sign-up fee). The easiest 
way to sign up is by credit card 
number. GENie will make a confirm- 
ing phone call a few days later. 
When they do, have a 3- to 12- char- 
acter moniker ready (no embedded 
spaces). You can change your name 
later, but it will cost you $10. The 
$18 initial fee includes a nicely pack- 
aged users’ manual that will arrive 
in about a week. 

Once you are on GENie, type 
FORTH at the command line to go 
directly to the Forth conference. The 
sysops are Dennis Rufer (D.RUFFER), 
Scott Squires (S.W.SQUIRES), and 
Gary Smith (GARY-S). Use the ATT 
command to see who else has “at- 
tended.” The categories are: 


1. FIG Bulletin Board 

2. FIG Real Time Conference 
3. FIG Software Library 

4. About the Roundtable 

5. Roundtable News 


You can download a copy of 
Laxen/Perry F83 Forth or one of the 
many files contributed by Gerald 
Shifrin of the East Coast Forth 
Board. Some categories are open to 
FIG members only. 

GENie is definitely a non-prime- 
time activity at $5/hour; prime time 
costs $35/hour. User assistance is 
available until 9:00 PM Pacific Time 
at (800) 638-9636. 


Forth Bibliography 

The third edition of A Bibliography 
of Forth References (1987) is now 
available from the Institute for Ap- 
plied Forth Research, P.O. Box 27686, 
Rochester, NY 14627. This 2,000- 


entry bibliography references arti- 
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single line borders. Cross-referenced help system. Save and restore regions of the 
display. Nested menus. Quick C. Create screens from ASCII files. Easy to learn 
and use. Horizontal and vertical scrolling. Used by consultants and corporations 
worldwide. Easy to maintain. Professional documentation. Screen designer creates 
readable C code. Portable. Easily modifiable functions. No royalties. Source code included. Turn Dan Bricklin slides into C. Professional support. 
__ Interface examples for data base management. Validation at keystroke level. Vast integrated and indexed context-sensitive help system. Save and 
restore soon of the — Now supporting Quick C, Turbo C, Aztec, Lattice, Microsoft, UNIX and others. be that’s not all. Call 2 
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PC/MS-DOS $279, plus shipping (includes C-scape, Look & Feel, 
source, manual and support). UNIX/others call. 30-day review. 
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cles and books from Forth’s dim 
origins up to January 1987. Articles 
are indexed both by subject and 
author. 

Because many Forth programmers 
love to write, the author index reads 
like a Who's Who of Forth. I use the 
subject index mostly, though. It’s a 
great help in convincing software 
managers or potential customers 
that Forth has already been used 
successfully in their line of work. 

Here is an example of using the 
index: 


Q: What's a QUAN? 


A: (433 ) The Quan Concept Ex- 
panded 

(1120) Code Field Vectoring 

(1538) High Speed, Low Memory Con- 
sumption Structures 


Q: Has Forth been used for radar 
antenna programming? 


A: (359 ) The Development of a Com- 





puterized Antenna Range Field 
(879 ) Microprocessor Control of Auto- 
mated Antenna Ranges 
(1010) Ground Control Approach 
Radar Performance Monitoring 


The bibliography was edited by 
Thea Martin and was generated en- 
tirely with Forth programs provided 
by Dick and Jill Miller of Miller Mi- 
crocomputer Services (MMS). Thea 
writes: 

“We used MMS’ DATAHANDLER- 
PLUS and FORTHWRITE to produce 
this document. DATAHANDLER- 
PLUS is a powerful, flexible database 
written in Forth that interfaces to 
the MMS _~_ word processor, 
FORTHWRITE. All three editions of 
the Bibliography have been pro- 
duced with these systems.” 

You can order a copy of the bibli- 
ography for $25 directly from the 
Institute, or you can get it from FIG 
([408] 277-0668). 


ANS Forth Meeting 

The first meeting of ANSI X3J14 (ANS 
Forth) was held on August 3 and 4 
at CBEMA headquarters in Washing- 


=—©, PROGRAMMERS! 
THE TooLs YOU NEED 
AT A PRICE YOU’LL LIKE 


Supports all index file operations. Very quick 
sequential or random access, duplicate keys, multiple 
indices, fixed and variable length data records are all supported. 


Works on top of BTree to provide a simple, yet 
powerful application program/file system interface. 


75.00 ¢« NOW 


MULTI 
-USER 


40.00 AVAILABLE 


Complex filesystem manipulation becomes a snap. Provides the power 


of a database manager with the flexibility of a programming language. 


60.00 


Finally, a completely device independent printer library! 


lp drives any printer as accurately as possible and allows easy access to 


75.00 


its most sophisticated features. Multiple fonts, multi-column output, complex margin 
formatting, and much more. Pays for itself the first time it’s used. 


The ultimate ‘make’ utility. We couldn’t find a good one, so 


we wrote a great one. Has all kinds of powerful features including wild 


59.00 


card filename expansion, nested macros, and multiple dependency and rules defini- 
tions. Ready to go for MS-DOS; C source is there if you use another operating 


system. 





Combine & Save: BTree + ISAM + Ip 159.00. Snake 199.00 


Each product includes a typeset manual, example programs, and complete C source 
code that runs on any operating system. Softfocus products may be incorporated into 
applications royalty-free. 


Credit card orders accepted. Visa, M/C, Amex. Dealer inquiries invited. 
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ton, D.C. In attendance were: 


Greg Bailey, Athena Programming 
(Novix Forth) 

Gary Betts, Saba Technology 

Ronald D. Braithwaite, The Tools 
Group 

Richard Burton, National Bureau of 
Standards 

Don Colburn, Creative Solutions Inc. 
(MacFORTH) 

Chris Colburn, Creative Solutions 
Inc. (MacFORTH) 

Ted Dickens, The Dickens Co. 

John Dorband, NASA GSFC 

Ray Duncan, Laboratory Microsys- 
tems Inc. (PC/FORTH, UR/FORTH) 

Douglas Fishman, National Bureau 
of Standards 

Lawrence P. Forsley, Laboratory for 
Laser Energetics (Rochester Con- 
ference, JFAR) 

Charlie Keane, PPI 

Guy M. Kelly (IEEE representative, 
chairman of the FST) 

Charles H. Moore, Computer Cow- 
boys (inventor of Forth) 

Mike Nemeth, Computer Sciences 

_ Corp. (MD FIG, Goddard FUG) 

David C. Petty, Digitel 


Se lleeuc 


1343 Stanbury Drive 

'@F-1 41/1 | (> @) ai e-1 ge mm @r-lar-ler-| 
ie) MA Le 

(416) 825-0903 
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James Rash, NASA GSFC 

Elizabeth D. Rather, FORTH Inc. 
(polyFORTH) 

Gerald A. Shifrin, MCI Telecommuni 

cations (ECFB sysop) 

Bill Ragsdale, Dorado Systems (foun- 
der of FIG, figForth) 

Robert Smith, Maxtor (FST secretary) 

Martin Tracy, FORTH Inc. (Master- 
Forth, DDJ) 


The editorial comments are claims 
to fame and not necessarily current 
agenda. Ms. Rather served as the 
acting chair and Mr. Duncan as the 
acting secretary. Ms. Cathie Kachu- 
rik offered welcome assistance to 
the X3J14 Technical Committee (TC) 
on behalf of CBEMA. 

The complete unofficial minutes 
of this meeting are available on the 
MCI ANS Forth bulletin board, with 
a copy on the East Coast Forth 
Board ([703] 442-8695). (Minutes 
become official when approved at 
the next meeting.) Unofficially, here 
are some of the highlights: 


@® Ms. Rather observed that a Forth 
standard should identify and docu- 


Parallel Programming for “C” 
INTERWORK 
A Concurrent Programming Toolkit 





ment accepted practice and not be 
an instrument to advance the state 
of the art. She hoped that an ANS 
Forth would be a clear and com- 
plete statement of what Forth is and 
does, that it would require minimal 
changes to existing systems, that it 
would be universally accepted, and 
that it would lead to the acceptance 
of the Forth language as a profes- 
sional instrument. 

@The Forth-83 Standard, Chapters 
1-12, without the appendices, was 
approved as the Basis Document. 
(The Basis Document is successively 
modified until it becomes the Draft 
Proposal.) All members of the TC 
will receive a Basis Document with 
all paragraphs numbered for their 
comments and review. 

@A proposal to add floating-point 
math to the Scope of Work was de- 
feated. 

® Volunteers were solicited for offi- 
cer positions. The ANSI SMC selects 
officers from this pool of volunteers. 
Ad hoc committees were created to 
research existing practice and iden- 
tify major areas of noncompliance 
to Forth-83. (The Research Commit- 

















tee has since mailed a questionnaire 
to all identified producers of Forth.) 


The next ANS Forth meeting is 
scheduled for November 11 and 12, 
just prior to the Forth Convention. 
By the time you read this, both will 
be over. To be a voting member on 
the ANS Forth TC, you must pay 
CBEMA a $200 fee and be prepared 
to attend four three-day meetings 
each year. You can follow the pro- 
gress of the dpANS (draft proposal, 
pronounced ‘“de-pants”) on the MCI 
ANS Forth bulletin board, GENie, or 
through this column. For now, any 
technical proposals should be sent 
to the acting secretary (me) at 
FORTH Inc., 111 N. Sepulveda Blvd., 
Manhattan Beach, CA 90266. 


Some Controlled Words 

In the October 1987 issue of DDJ, I 
presented a Forth-83 software prel- 
ude for writing portable source 
code. You will need to add the 
words presented in that article to 
your Forth-83 Forth to enjoy the 
fruits of this column. Example 1, 
page 148, contains typical defini- 











Interwork is a “C” program library which allows you to write 
your programs as a set of cooperating concurrent tasks. 
Very useful for simulation, real-time applications, and ex- 
perimentation with parallel programming. 


FEATURES 

Supports a very large number of tasks (typically more 
than 100) limited only by available memory. Low over- 
head per task results in very fast context switching. 
Provides a full set of inter-task communication (ITC) 
facilities, including shared memory, locks, semaphores, 
blocking queues, and UNIX*-style signals. Also has 
building blocks for constructing your own ITC facilities. 
Handles interrupts (DOS version) and integrates them 
into task scheduling. Supply your own interrupt handlers 
or block tasks on interrupts. 
Lets you trace task switches and inter-task 
communication. 
* Comes with complete documentation including a user's 

manual and reference manual of commands. 


Interwork is available for the following systems: 









Hardware Operating System Price 
IBM PC, XT, AT PC-DOS 2.0 or later $129 
IBM PC AT XENIX* $159 







DEC VAX; SUN III UNIX 4.2BSD $249 


PC-DOS version is compatible with DeSmet, Lattice, and 
Microsoft C compilers. 

Please specify hardware and operating system when 
ordering. Shipping and handling included; COD orders 
add $2.50. Send check or money order to: 


Ax Block Island Technologies 

Innovative Computer Software 

13563 NW Cornell Road, Suite 230, Portland, Oregon 97229-5892 
(503) 241-8971 


“Trademarks: UNIX, AT&T Bell Laboratories, Inc.; XENIX, 
Microsoft, Inc.; VAX, Digital Equipment Corporation 
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Conquer Time 
and Space. 


Introducing XO-SHELL. 


Pop-Up Productivity for Programmers. 







No matter what language you program in, XO-SHELL will help 

you hurdle the barriers to working faster and more efficiently 

by eliminating programming hassles. Only with RAM-resident 

XO-SHELL can you: 

@ DO CROSS-REFERENCING without leaving your editor 

@ VIEW ANY FILE and TRANSFER ANY SECTION into your 
editor or to your printer 

@ VIEW, COPY and ERASE files directly from a SCROLLABLE 
DIRECTORY DISPLAY 

@ With a single.key stroke RETRIEVE previous DOS commanas, 
then EDIT and REEXECUTE them 

@ DO SOURCE-LISTING while in your application 

@ OBTAIN KEY-CODES without a reference and without going 
through difficult interpretation 

@ INSERT GRAPHICS CHARACTERS in your source code. 


XO-SHELL is for PCs, XTs, ATs, PS/2s, compatibles. 










Call now for special half-price introductory offer. 


pp 
LUTE 


WYTE CORPORATION 
701 Concord Avenue 
Cambridge. MA 02138 






For a limited time only 


$24.50 


(regular price $49) 
plus $5 shipping & handling 


Call today toll-free 


(800) 635-5011 


(In MA: (617) 868-7704) 
Visa, MasterCard 
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tions, which you can adjust to fit 
your Forth. 

Now we can define a (small) 
number of additional words that 
have come into general usage: 


> \ >IN @ 64 + -64 AND SIN ! ; 


IMMEDIATE 

( “backslash” comment to the end 
of line.) 

: THRU (nn2) 1+ SWAP DO I LOAD 
LOOP ; 


\ LOAD blocks n through n2. 


These words are defined early on 
so that we can use them to compile 
other useful words. The “backslash”’ 
comment has two cousins: 


:\\ 1024 >IN ! ; IMMEDIATE 
\ comment to end of source block. 
-\IF (f ) O= IF [COMPILE] \ THEN ; 
\ conditional comment or interpret 
line. 
IMMEDIATE 


The first word, \\, stops interpreting 
or compiling a block immediately. 
Most Forths can use EXIT for this 







: I> ( -—- a) COMPILE R> ; 
set t a) 





Moves NEXT address to and from stack.) 
IMMEDIATE 
COMPILE >R ; IMMEDIATE 


function. The second word, \IF , is 
both a convenient comment and a 
key for conditional execution. I'll dis- 
cuss how you can use \IF in a 
moment. 

In the meantime, consider another 
useful word: 


:2* (n=n’) DUP + ; 


Many programmers assume this 
word is required by the Forth-83 
Standard. (It isn’t, but 2/ is.) By defin- 
ing 2* as high-level Forth, we guaran- 
tee that we can use it in any Stan- 
dard program. But chances are ex- 
cellent that 2* is already in our dic- 
tionary as a CODE definition. If we 
redefine it, the new 2* will be much 
slower than the original. What we 
would really like to do is to define 2* 
only if it isn’t already in the dic- 
tionary: 


: NEED ( - f) 
\true if the following word is already 
\in the dictionary. 
32 ( ie blank) WORD FIND SWAP 
DROP 0= ; 


Now we can have our cake and eat 
it too: 


NEED 2* \IF : 2* (n—n’) DUP + ; 


NEED looks 2* up in the dictionary. 
If it isn’t there, we define it in high- 
level. 

There are a few caveats to this 
approach. VIF can only be used 
within a source block. NEED returns 
either of two truth values, 1 or —1, 
so be careful if you use it in logical 
expressions. Finally, we assume that 
if 2* is already in the dictionary, its 
function is to double a number and 
not to, say, print two stars (**) on 
the terminal. 

Fortunately, the Forth-83 Standard 
has provided for this eventuality by 
including 2* in its Controlled Refer- 
ence Words with the appropriate 
definition. Controlled Reference 
Words are not required by the Stan- 
dard, but if they do appear, they 
must have the prescribed definition. 
Example 2, below, contains some 
other Controlled Reference Words. 

Unfortunately, there are not very 
many words in the Controlled Refer- 
ence Set. (The Standard also has 
Uncontrolled Reference Words, 
which are exactly that.) Of course, 
we can define or redefine any word 
we want to. This is one of Forth’s 


>: 2>R € nm nZ) 
\ pushes a pair on the return stack. 








COMPILE SWAP COMPILE >R COMPILE >R 
IMMEDIATE 


( Even address alignment, if required.) 
: ALIGN HERE 1 AND ALLOT ; 


: REALIGN ( a - a') DUP 1 AND ¢+ ; 








: 2R> ( = n nd} 

\ pops a pair from the return stack. 
COMPILE R> COMPILE R> COMPILE SWAP 
IMMEDIATE 





( Hides number of bytes per word.) 
2 CONSTANT CELL 

¢ CELL (€ nh - mn’) 2t = 

- CELLS ( n - ni) 2% >; 









: @EXECUTE ( ? ) @ EXECUTE ; 






Compiles self-reference.) 
: RECURSE ( ...) ; IMMEDIATE 


: AGAIN 
\ used in a BEGIN-- AGAIN structure. 
0 [COMPILE] LITERAL [COMPILE] UNTIL 





Forces interpretation of the input stream.) 


: INTERPRET ( ...) # IMMEDIATE 





Discards return stack overhead of DO--LOOP.) 
* UNDO I> R> BR> 2DROP >I ;: 


: DLITERAL SWAP 
[COMPILE] LITERAL [COMPILE] LITERAL 
IMMEDIATE 


: S>D ( n -— dj) DUP O< ; 
\ single to double number. 


Example 1 


NEED D2* \If «: D2* ( d = d‘) ZDUP Dt ; 

NEED HEX \IF : HEX ( DECIMAL ) 16 BASE ! ; : WITHIN ( n min max - f) 
\ true if min <= n < max. 
NEED C, \IPF +: €, € mn ) BERE 1 ALLOT Ci > OVER - >R —- R> U<K ; 
NEED BL \IF 32 CONSTANT BL ( a blank) 
-1 CONSTANT TRUE 
NEED ERASE \IF 


NEED BLANK \IF 


‘+ BPRASE ( awn) O09 FILL = 
¢ BLANK {( a@ ni) BL FILL ; 


NEED .KR \IF =: Ro ( A ow) OR OUP O< R> O.R 





Example 2 Example 3 
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greatest benefits—nothing is sacred 
(except Forth itself). Anytime we re- 
define a CODE definition, however, 
we lose speed needlessly. 

The solution is to add a few se- 
lected high-performance words to 
the Controlled Reference Set. Be- 
cause the Forth-83 Standard com- 
mittee is not meeting at this time, 
we will have to do it ourselves. So, 
consider the words in Example 3, 
page 148, as belonging to the DDJ 
Forth Column Controlled Reference 
Word Set. These definitions should 
each be preceded by the appropri- 
ate NEED phrase. Any other defini- 
tions we require, we will simply 
define (or redefine) in high-level 
Forth. In other words, we won't be 
needing NEED anymore. 


Strings 

This month’s topic of interest is im- 
plementing strings in Forth. Let’s 
see how we can apply our new tools 
to this issue. 

The most enthusiastic string pack- 
age I have ever seen was written by 
George Hawkins and is available as 
the file FSTRINGS.ARC from the 








ECFB. George’s package provides 66 
definitions on 50 screens of source 
code, including a test suite. There 
are 21 pages of documentation with 
a glossary. The package is written in 
Forth-83 but uses the BRANCH ex- 
perimental extension. If your Forth 
doesn't BRANCH, change the follow- 
ing definitions on screen 6: 


: $, HERE OVER @ 2+ DUP ALLOT 
ALIGN CMOVE ; 


: ($LIT) I> DUP 
DUP CELL+ SWAP @ + REALIGN 
=I ; 
: ({$LIT] COMPILE ($LIT) ,$ ; IMMEDI- 
ATE 


Once I made this change, it com- 
piled the first time and added a 
modest 3.3K to my dictionary. 

Although the FSTRINGS package 
is not a SNOBOL, it is suitable for 
medium-strength string processing, 
such as_ building concordance 
tables. We can approximate many of 
its functions using materials that lie 
readily at hand. 

First, we need some way to make 
strings. In Forth-83, strings are 


stored in memory as_ counted 
strings. A counted string is referred 
to by a single address, which points 
to the count byte of the string. The 
count byte is followed by that many 
1-byte ASCII characters. In some 
Forths, it may be padded with a 
blank or zero to the next even ad- 
dress. You can think of a counted 
string as a packed string that must 
be unpacked to a text string before 
it can be used. Text strings are re- 
ferred to by two arguments: the ad- 
dress of the first character and the 
length of the string, with the length 
on top. Counted strings are con- 
verted to text strings with the 
COUNT operator. We will also need 
an operator to pack text strings into 
counted strings: 


: PLACE ( a1 n a2) 2DUP !1+ SWAP 
CMOVE ; 
\ packs string al n into counted 
string a2. 

>, 34 (ie ASCII”) WORD COUNT 
\ compiles following string at HERE 
DUP >R HERE PLACE R> 1+ 
ALLOT ALIGN ; 

CREATE TEST ,* This is a test.” 








NEW 


No Other Product Like It - The 
Azatar DOS Toolkit is a collection of 
Pascal routines that may be used in 
programs to access the more powerful and 
more useful DOS 3.X interrupts and 
functions. 





Substantial Power and Control 
Using our routines, you gain extensive 
power over files, directories, drives, the 
System’s clock and switches, the DOS 
PRINT spooler, auxiliary devices, the 
keyboard and screen, and more. 





Easy to Use - Just call one of our 
procedures or functions from within your 
program, and pass it simple parameters. 
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Complete Error Handling - In the 


event that an error does occur, numeric 
codes and extensive English messages 
immediately tell you which error it was, 
where it occurred, why it occurred, and 
what you can do to correct it. 


Educational Examples - The Azatar 


DOS Toolkit clearly demonstrates how the 
routines may be used in_ actual 
programming contexts using sample Pascal 
programs. 


Thorough Reference Manual - The 
Azatar DOS Toolkit Reference Manual 


contains over 225 pages of helpful 
introductions and overviews, explanations 
of all global variables used in the routines, 
lists of the error messages, and a great 
deal of other important information. 
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Inexpensive - The entire Azatar DOS 
Toolkit package is modestly priced at 
$95.00. That's less than the price of the 
IBM DOS Technical Reference Manual 
alone. 


Worth Every Penny - The routines in 


the Azatar DOS Toolkit 







will save 
programmers hundreds of hours of 
valuable coding time. 
Call Dennis Hunter = 
= Soe 
(716) 385-9780 = 


ALA 
MICROSYSTEMS INC. 
3300 Monroe Ave.,Rochester,NY 14618 
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TEST COUNT TYPE This is a test. ok 


We can compile strings as literals 
into colon definitions in this way: 


: (“) I> COUNT 2DUP + REALIGN 
= 

>“ COMPILE (") ,“ ; IMMEDIATE 

\ fundamental string compiler. 

: TEST “ This is a literal.” TYPE ; 

TEST This is a literal. ok 


I have included COUNT in the 
run-time action of a string literal. 
Several Forths include the “ opera- 
tor but not all of them COUNT the 
string. Nonetheless, because we are 
redefining it ourselves, it will behave 
as we expect. 

We can also make a string by EX- 
PECTing it from the user into PAD: 


( For example:) 
: TEXT (- an) 
PAD 80 EXPECT PAD SPAN @ ; 
: NAME? 
CR .“ Sign in please: " TEXT 
GR...” Your name is: :" TYPE ; 


Substrings are trivial in Forth: 


: /STRING (ann2-a’' n) 

\ shorten string a n by n2 characters. 
ROT OVER + ROT ROT - ; 

: TEST “ Catatonic’” ; 

TEST 6 — TYPE Cat ok 

TEST 4 /STRING TYPE tonic ok 

TEST 5 /STRING 2— TYPE on ok 


We can make the “ literal STATE- 
smart to make testing easier. While 
we're at it, let's have a STATE-smart 
ASCII, too: 


: ASCII (— c) BL WORD 1+ C@ 
\ value of following character. 
STATE @ IF [COMPILE] LITERAL 
THEN ; 
IMMEDIATE 
(> COUNT ZDUP +. >1'; 
:‘“(—an) STATE @ 
IF COMPILE (") ,” 
ELSE ASCII ‘“ WORD COUNT >R 
PAD I CMOVE PAD R> THEN ; 
IMMEDIATE 
ASCII A EMIT A ok 
“ Simplicity” TYPE Simplicity ok 


Numbers are easily made into 
strings with the flexible “sharp” op- 











Brand New From Peter Norton 
A PROGRAMMER’S EDITOR 





that’s lightning fast with the hot 
features programmers need 


=NORTON 


** This is the program- 
mer’s editor that I wished 
I’d had when I wrote my 
Norton Utilities. You can 





erators: <#, #, #8, HOLD, SIGN, and 
#>. Making strings into numbers, 
however, is a little harder. We'll use 
a syntax suggested by Stephen Pelc 
(“Proposed Standard Changes,’ 
FORML Conference, 1986): 


VARIABLE DPL 
> VAL? (an-—d2,n1,0) 
\ string to number conversion. 
PAD OVER — SWAP OVER >R 
CMOVE 
BL PAD C! PAD DPL !0 0 R> 
DUP C@ ASCII — = DUP >R - 1- 
BEGIN CONVERT DUP C@ DUP 
ASCII : = 
SWAP ASCII , ASCII / 1+ WITHIN 
OR 
WHILE DUP DPL ! REPEAT 
R> SWAP >R IF DNEGATE THEN 
PAD 1— DPL @ — DPL ! R> PAD = 
IF DPL @ 0> IF DROP 1 ELSE 2 
THEN 
ELSE 2DROP 0 THEN ; 


When the smoke clears, there will 
he a 2 on the stack if the number is 
a double, a 1 if it is single, and a 0 if 
it is invalid. The number, if any, will 
be on the stack under the flag. A 
number containing punctuation 
from the set +,-/: is a double 
number, with DPL set to the number 
of places to the right of the right- 
most punctuation. A number with- 
out punctuation is a single number, 
and DPL is set to a negative value. 


“423,456” VAL? . 2 ok 
D. 123456 ok 
DPL @ .3 ok 


Many Forths already support auto- 
matic single- and double-number 
conversion, but there is no general 
agreement on the syntax. The Forth- 
83 DPL is one of the Uncontrolled 


Refererice Words, which means we 
can’t count on it. Hopefully, this 


program your way to 
glory with The Norton 


Direct from the 
man who gave you 


E 


The Norton Utilities, — etn issue will be taken up by the ANS 
Inside the IBM PC, Pele N Forth technical committee. 
and the Peter Norton : Because strings are often con- 







Programmer's Guide. verted to double numbers, irrespec- 


tive of punctuation, we could use a 
simpler conversion primitive based 
on VAL?: 


: VAL (a n-d f) VAL? 3 < AND DUP 
\ string to double number. 
\ True if number is valid. 
IF 1 = IF S>D THEN TRUE EXIT 
THEN 


Peter Norton Computing, Inc., 2210 Wilshire Boulevard, 
Santa Monica, CA 90403, 213-453-2361. Visa, 
Mastercard and phone orders welcome. 


The Norton Editor™ is a trademark of Peter Norton Computing. Inc. C 1986 Peter Norton Computing 
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Ten 





T | don’t like working with 

e others 

PeaceNet is a computer network and communication 
system for people who believe that global planning 
and cooperation are necessary to reverse a trillion-dol- 
lar-per-year arms race; it is linking users throughout 
the United States and in over 70 other countries. 


I’ve got all the information I'll 
eever need 
PeaceNet is for those who appreciate that information 
is always growing and changing; its bulletin boards, 
conferences, and databases provide information about 
everything from Central America to Star Wars. 


3 | love playing phone tag 


@ PeaceNet’s electronic mail system renders those 
endless conversations with secretaries and answering 
machines obsolete. 


| don’t know how to use my 
e computer 





PeaceNet helps novices with simple, entertaining man- 


uals and round-the-clock staff for answering their 
questions. 


5 l enjoy copying, labeling, and 
e stamping letters 

PeaceNet enables you to send messages to hundreds of 
other users with one simple command. 








I’ve got plenty of money 
eto waste on postage and 
phone bills 
PeaceNet is for people who want to save money; it lets 
you send documents across the world faster than 
Federal Express™ for pennies per page. 


| don’t mind getting action 
e alerts a week late 

PeaceNet does mind and can help your organization 

send out time-urgent alerts instantly. 


| don’t have the right kind of 
e computer equipment 
PeaceNet is available to anyone with a computer termi- 
nal and a modem. 


An effective peace movement 
eisn’t worth 50 cents a day 
PeaceNet users disagree. 


It’s all hopeless, anyway 


10. Then why read this magazine when Modern 
Wrestling would suffice? 








Use PeaceNet’s electronic mail, conferences, bulletin 
boards, databases, and Telex services to gather, 
organize and share valuable up-to-date and 
comprehensive information about: 


Peace and anti-nuclear efforts, Central American issues, 
environmental protection, anti-apartheid efforts, human 
rights, Native American issues, and much more. 


PeaceNet is the largest and most rapidly growing on-line community of progressives anywhere in the world. 
And by using any home computer and a modem it is only a local phone call away. Call or write today for 


more information. 





PeaceNet: 


3228 Sacramento Street 
San Francisco, CA 94115 (415) 923-0900 

















THE FORTH COLUMN 
(continued from page 150) 


0:0; 


SKIP and SCAN are two impor- 
tant string search primitives that 
appear in several Forths as factors 
of the word WORD: 


SKIP (anc-—a’'n) 


-PEXT € an a? - -1 ,. 0, 1) 


\ -1 tf string an < a2n, 0 if equal, 
if >. 


\ and l 


COMP ARE 


(an a2 n2- -1. 0, 1) 


\ shortens a string to the first posi- 
tion 

\ unequal to c. 

SCAN (anc-—a'n’) 

\ shortens a string to the first posi- 
tion 

\ equal to c. 


SKIP and SCAN mimic the 8086 
SCAS instruction. Their high-level 
definitions are given in the accompa- 
nying source screens 
(see Listing One, page 
124). SCAN is especially 
useful for lexing and 
parsing strings: 


\ -l if string an < a2 n2, O if equal, 


\ and 1 if >. 


-MATCH ( an a2 n2 - offset 0, ? -1) 
\ position of string a2 n2 inan. 

\ Offset is 0 if an is found in lst 
\ position. True with invalid offset 


\ Lf a2 n2 isn't in a a. 

: ANIMAL ™ ANIMAL” ; 

" ANIMATE" ANIMAL COMPARE . 
" ANT" ANIMAL COMPARE . -1 ok 


ANIMAL " IMA" -MATCH . . 0 2 ok 
ANIMAL " XYZ" -MATCH .. 





Example 4 


The Advanced 
Programmer's Editor 


1 ok 


-1 22222 ok 


ae) DI@h Ya I[aige) ole) as 
UNIX, or... 


( For example:) 

: LEX (anc-—a2n2a3 
n3) 

\ splits string at c, right 
most string 

\ on top. Either string 
can have 0 length. 

>R 2DUP R> SCAN 
ROT OVER — 

ROT ROT DUP 0> 
NEGATE /STRING ; 

‘“ FORTH.COM” ASCII . 
LEX 
2SWAP TYPE SPACE 


Oh YL: 


Protected Mode 


That Doesn't Waste Your Time 


e Fast, EMACS-style commands—completely reconfigurable 
e Run other programs without stopping Epsilon—concurrently! 
e C Language suppornt—fix errors while your compiler runs 


e Powerful extension language 
e Multiple windows, files 


e Unlimited file size, line length 


e Great on-line help system 
e Regular Expression search 
e Supports large displays 


e 30 day money-back guarantee e Not copy protected 


Only $195 
LUGyar~uUu 


Software Ltd. 


5740 Darlington Road 
Pittsburgh, PA 15217 
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for IBM PC/XT/AT’s or compatibles 
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TYPE FORTH COM ok 


CTO” (“C-to-quote’”’) is an often ne- 
glected primitive for converting a 
character to a string: 


: CTO” (c — a 1) CTEMP C! CTEMP 
: 
ASCII A CTO” TYPE A ok 


The remaining string operators 
(shown in Example 4, left) are used 
to compare strings and to find the 
occurrence of one string in another. 
Their analogs are often found in line 
and screen editors. 

The final string operator, EVAL, is 
also the most powerful. EVAL inter- 
prets a string. The following defini- 
tion of EVAL should work on your 
Forth-83 system. I say “should” be- 
cause there is some question as to 
whether the Standard words >IN, 
BLK, TIB, and #TIB control interpre- 
tation or simply describe it. You will 
need to test this word on your 
system. 


: EVAL ( a n) \ interprets the string. 
DUP >R TIB SWAP CMOVE R@ 
#TIB ! 
0 >IN ! 0 BLK ! INTERPRET R> 
IN: f ; 
- TEST “ LATER” EVAL ; 
: LATER .“ A forward reference.” ; 
TEST A forward reference. ok 


This completes the string pack- 
age, and you will find a complete 
listing of it in Listing One. It com- 
piles to about 1K of dictionary space. 


Availability 

Most of the source code for articles 
in this issue is available on a single 
disk. To order, send $14.95 to Dr. 
Dobb’s Journal, 501 Galveston Dr., 
Redwood City, CA 94063, or call (415) 
366-3600, ext. 216. Please specify the 
issue number and format (MS-DOS, 
Macintosh, Kaypro). 


DDJ 
(Listing begins on page 124.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 7. 
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Start Here 


Smart buyers start with DDJs free 
information card, a shopping center filled 
with information about the products and 
services advertised in this very issue: everything from software 
and systems to peripherals and professional support services. 

And smart buyers can use this free information card to 
quickly and easily gather a comprehensive file of facts, figures 
and product specs to sort out competing claims. Using DD's 
free information card can prevent you from making the wrong, 
costly buying decision. 
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Operating Systems 

VenturCom has announced Venix 
System V 2.3, a real-time Unix operat- 
ing system for the IBM PC/AT, HP 
Vectra Plus, and Compaq Deskpro 
386. Enhancements include impoved 
memory management to minimize 
V/O; a more efficiently coded kernel; 
a larger, 1,024-byte file system; and 
an extended buffer cache. 

Venix 2.3 also features real-time 
extensions, adherence to AT&T stan- 
dards, EGA support, AT&T binary 
compatibility, developers’ tools that 
include a large-model C compiler, 
and Ethernet TCP/IP support. 

The full system is priced at $990 
for single-quantity purchases but is 
being offered at an introductory 
price of $600 for a two-user system 
until December 31, 1987. It comes 
with an indexed, four-volume set of 
documentation and 60 days of toll- 
free telephone support. Reader Serv- 
ice No. 16. 

VenturCom Inc. 

215 First St. 
Cambridge, MA 02142 
(617) 661-1230 


PC-MOS/386, Version 1.02, from The 
Soitware Link, now supports IBM 
PCs; IBM PC/ATs; and compatible 
8088-, 8086-, and 80286-based sys- 
tems. PC-MOS/386 offers file sharing, 
user security, print spooling, disk 
caching, NETBIOS emulation, EMS 
emulation, interrupt-driven serial 
1/O, enhanced command-line recall 
and editing, support for very large 
disk volumes, an enhanced direc- 
tory structure, sophisticated com- 
mand processing, a full-screen text 
editor, and on-line help. Features 
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that are specific to the 80386 CPU, 

such as support for 32-bit native- 

mode applications, are now isolated 

in a single system driver file. 
PC-MOS/386 is available on both 

51/4- and 3.5-inch disks. Prices range 

from $195 for a 1-user version to 

$995 for a 25-user version. Regis- 

tered users of earlier versions can 

upgrade to Version 1.02 at no charge. 

Reader Service No. 17. 

The Software Link 

3577 Parkway Ln. 

Atlanta, GA 30092 

(404) 448-5465 


Digital Research is now shipping 
enhanced versions of Concurrent 
DOS 386 and Concurrent DOS XM 
(Expanded Memory). 

Concurrent DOS 386 supports 
most PC-DOS/MS-DOS applications 
and more than 700 business applica- 
tions written specifically for Concur- 
rent DOS. Windowing capabilities 
are provided, allowing up to four 
applications to run from the pri- 
mary console. It is available in a 
three-user system configuration, 
priced at $395, or in a ten-user ver- 
sion for $495. 

Concurrent DOS XM offers im- 
proved EGA support, enhanced sup- 
port for the IBM PC/AT keyboard, 
disk formatting for up to four parti- 
tions per hard disk, and support for 
the AST-Four Port/DOS card and the 
four-port Hostess Multiport Network 
Adapter. The three-user system is 
available for $295 and the six-user 
version for $395. Reader Service No. 
18. 

Digital Research 
P.O. Box DRI 
Monterey, CA 93942 
(408) 649-3896 


The Hyperspace Z-System for 
HD64180-compatible and Z280-com- 
patible microprocessors is now avail- 
able from Echelon. The Hyperspace 
Z-System is a CP/M 2.2-compatible 
operating system that includes 
ZCPR 3.3, ZRDOS 2.0, and a sample 
BIOS for 64180 machines. The 
system features a large free memory 
area of 57.25K. The retail price is 
$195. Reader Service No. 19. 
Echelon Inc. 


885 N. San Antonio Rd. 
Los Altos, CA 94022 
(415) 948-3820 


UniPress Software has launched 
the Unix Training Center, which 
offers 22 courses to help users and 
organizations learn to use Unix. The 
center personnel can provide needs 
analyses, curriculum design, origi- 
nal course development, and instruc- 
tor training. The Unix Training 
Center’s classes can be given either 
at an organization’s facility or at an 
off-site meeting area determined by 
a client. Classes are offered on-site 
for a fee of $100 per day per student, 
with a minimum fee of $1,300 per 
day. Reader Service No. 20. 

UniPress Software 

2025 Lincoln Hwy. 

Edison, NJ 08817 

(201) 985-8000 


The Wendin-DOS Application Devel- 
oper’s Kit is now available from 
Wendin. The kit allows application 
programmers to develop multi- 
tasking applications based on VAX/ 
VMS system services. The new QIO 
(Queued I/O) and RMS (Record Man- 
agement System) services replace an- 
tiquated MS-DOS calls and induce 
more programming flexibility. Other 
serices support shared memory for 
interprocess communication, 
memory-resident pipes, sema- 
phones, file locking, file permissions, 
extended memory access, swapping, 
and control of multiple terminals. 
The kit sells for $99. Reader Service 
No. 21. 

Wendin Inc. 

P.O. Box 3888 

Spokane, WA 99220-3888 

(509) 624-8088 


Microprocessor Engineering has 
released its OS-9 implementation of 
the MPE/Nautilus Cross Compiler. 
MPE/Nautilus features interactive de- 
bugging that allows development of 
the target system in RAM before com- 
mitting to ROM. Written in Forth, 
MPE/Nautilus includes automatic 
handling of defining words and sup- 
port for forward referencing. Reader 
Service No. 22. 

Microprocessor Engineering Ltd. 
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turn this 
into this! 


MASTER*+KEY 
No Other Product Comes Ciose! 


An EXPERT may not know the solution, but always 
knows where to find it. 


MASTER*KEY HELPS ANYONE solve those 
confusing and frustrating software puzzles more 
rapidly and easily than any other software available, 
at any cost! It gives you know-how within hours that 
may otherwise take years of experience. Create a 
new program from an old one. DON’T REINVENT 
THE WHEEL! 


MASTER+KEY - Smart! 

MASTER: KEY is an intelligent self-documenting 
MS-DOS reverse assembler. Its sophisticated 
procedures swiftly race through massive and baffling 
object code files to effortlessly discover potential 
trouble spots. 


MASTERsKEY - Educational! 

YOU DONT NEED TO KNOW ASSEMBLY 
LANGUAGE! MASTER:KEY will take any program 
from your IBM-compatible computer and return fully- 
documented, easily-understood assembly language 
source code (Microsoft MASM 4.0 compatible). 


MASTER*KEY - Easy To Use! 

MASTER: KEY works both automatically from the 
DOS command line or interactively from menus 
similar to Lotus Corporation’s 1-2-3 or Symphony. 
No need to remember any new commands or con- 
tinually refer to a manual. Use it immediately! 


Minimum System Requirements: 
256K + 8088/8086/80186/80286/80386 PC 
MS-DOS or PC-DOS 2.0 + 
One 360K DSDD Floppy Drive (IBM PC Format) 


MS-DOS is a trademark of Microsoft. 
PC-DOS is a trademark of IBM. 





C:>DEBUG PROGRAN.COM 











O -D1iOO 136 O 
8848:0100 EB 18 49 GE 63 GF 72 72-65 63 74 20 44 4F 53 20 k.Incorrect DOS 
8848:0110 76 65 72 73 69 6F GE OD-OA 24 SO B4 30 CD 21 86 version..@P40M!. 
8848:0120 EO 3D 36 01 72 O5 3D OA-02 76 O9 BA O02 O01 B4 O09 ‘s6.r.8..v.:..4. 

O 8848:0130 CD 21 CD 20 58 EB 2F MIM Xk/ .) 

& 
O 
O 
HOO100: JMP Short HOO11A 300100 EB18 ai 
Sp see omg a ia ss a fa a AS nn Ses ew en eee ans Vienna 
O DB “Incorrect DOS version" 300102 496E636F727265 O 
DB ODh 300117 
DB OAh 300118 

O DB “s" 300119 24 QO 
HOO11A: PUSH AX 3;0011A SO P 

O MOV AH, 30h 3;0011B B430 _O O 

INT 2ih 31-DOS_Ver_Nuamber 30011D CD21 23 
XCHG AH, AL 3;0011F 86E0 = 
CMP AX,0136h 300121 3D3601 =6_ 
O JB HOO12B ; 300124 7205 ; O 
CMP AX,O20Ah 300126 3DOA02 oe 
JBE HOO134 ; 300129 7609 v_ 
O HOO12B: MOV DX ,0102h 3;0012B BAO201 — O 
MOV AH,OSh 3;0012E B409 “ate 
INT 2ih 31-Display_String 300130 CD21 a 
INT 20h ;TERM_normelly:20h ;00132 CD20 2 

(OEE Saceaepieehoeesiter eouneniaaninmmmeammtaeie O 

H00134: POP AX 300134 S58 x 
JMP Short HOO166 300135 EB2F sf 

O , O 
MASTER*KEY XREF - PROGRAM. XRF Page i 

O O 
0102h : i2i 2F5 301 320 
O20Ah : 126 
O3CBh : 12B 

O i1-Display_String $ 139 391 619 
1-DOS_Ver_Nusmber H 11D 
HOO100 $ 100 

O HOO11A : 100 11A 
HOO12B $ 124 12B 
HOO134 : 129 134 
HOO166 $ 135 

O TERM_normeally:20h : 132 

O 


MASTER*KEY will guide you step by step to: 


y 


3. 


. Help you learn assembly language, if you desire. 


Discover how any program runs or why 

it doesn't. 

Alter or remove unwanted object code from 
any program. 


Incorporate routines from compiled programs 


into other assembly language, Basic, C, or 
Pascal programs. 


Dealer/Distributor Inquiries Welcome 


9. Make software more compatible with your 
computer. Be certain a questionable program 


won't damage your system BEFORE yourunit. 


6. Modify software to operate with other 
versions of DOS. 


7. Customize your COMMAND.COM or other 


executable program directly or by reassem- 


bling your altered MASTER*KEY source code. 


# MASTER * KEY should not be confused with any public 
Sharpe Systems Corporation Dean. shite mae Sligae fet May tense 
2320 E Street, Dept. 44, La Verne, CA 91750 714-596-0070 similar name or be a similar product. 
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(not copy protected) 





Phone orders accepted on MC or VISA 


Order Now! __ 82-45 (includes $2.50 shipping) 


$87.65 in California (includes tax & 


Just $79%5 Shipping) C.0.D. orders add $2.00 
(714) 596-0070 


Please send MASTER* KEY! 


Send checks to: 


Sharpe Systems Corporation 
2320 E Street, Dept. 44, La Verne, CA 91750 


Name 
Address 
City State Zip 





You Do The Hard Part 


You Do This. . . We'll Do This... 





VANNAANAAAANAANA 
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—E 6,80 PRINT 
e Tewt I 
€ 12,33 PRINT 
—E 7,80 PRINT 
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—€ 8,33 PRIN 
TE 8,80 : PRINT 





Designing screens is the hard part. Coding screens is time consuming, boring, 
unchallenging, in a word, "the pits". With ScreenCODE, you can quickly and 
easily design your screen. Then with the push of a button it will write the code 
in any language--C, dBase ll, Ill, !ll+, Basic, or Turbo Pascal. 


With ScreenSNAP you can capture screens that you like from other 
programs, then with ScreenCODE modify them, and it will write the code to 
be used in your program. There’s no reason to reinvent the wheel. 


SlideSHOW is easier than Bricklin and will let you build self running demos 
or prototypes. 


You get ALL THREE in one package. Order before December 31 1987, and 


we will give you a FREE disk of our most popular screens. 


Ready to modify or use as is. 


Now through the end of the year, get all three for $149.00 
(Shipping and handling included.) 


To order call 1(800) 223-3419 

Centurion Systems § 2724 West Waco Dr., Waco, TX 76710 
Accept Visa, MasterCard, Check ,Money Order,C.O.D. 

30 DAY MONEY BACK GUARANTEE 
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The 
Heap Expander 
version 2.0 


Now your programs can have virtually unlimited heap space using expanded 
memory, extended memory, disk space, or any combination of the three. And it’s all 
transparent. The Heap Expander’s startup code checks the system’s resources and 
uses whatever is available. 


T™ 


Libraries and Source Code for: 
Turbo C 
Microsoft C 4.0 and 5.0 
Mark Williams C 3.1 and 4.0 
LatticeC 3.2 


e@ Uses LIM-standard expanded memory Turbo Pascal 3.0 and 4.0 
if present. Logitech Modula-2/86 


e@ Uses AT-style extended memory if Requires an IBM PC, XT, AT, orclose 
present. compatible with MS-DOS or PC-DOS version 


e Swaps data to disk as needed. 2.0 orabove 


el 


MC/VISA/COD call 
1-800-248-1045 x 100 (US) The Tool Makers 


1-800-952-5560 x 100 (Idaho) ; 
P.O. Box 8976 

*Idaho residents add 5% sales tax Moscow, Idaho 83843 
Foreign customers add $4.00 for shipping 208-883-4979 


and handling. 
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OF INTEREST 
(continued from page 154) 


133/133a Hill Ln. 
Shirley, Southampton 
England S01 5AF 
0703-631441 


Hardware 

Lloyd VO is now shipping its 
OMEGA MC68020-based workstation. 
The workstation provides integral 
floating-point math support via the 
MC68881 math coprocessor. It also 
includes 1 megabyte of zero-wait- 
state; nonvolatile static RAM; the OS- 
9, 68K, real-time, multitasking oper- 
ating system; and a C compiler. The 
standard system configuration sup- 
ports up to four users; further users 
are supported by optional I/O expan- 
sion boards. The base price for the 
workstation is $4,750. Special system 
configurations, higher clock speeds, 
and hardware options are available 
for an additional cost. Reader Serv- 
ice No. 23. 

Lloyd I/O Inc. 

19535 Northeast Glisan St. 

P.O. Box 30945 

Portland, OR 97230 

(800) 227-3719 | 


An 80386-based multiuser system run- 
ning the Xenix System V operating 
system, the Altos 386 Series 2000, is 
available from Altos Computer Sys- 
tems. The Series 2000’s design fea- 
tures modular architecture that 
allows memory and storage to be 
easily expanded. It also includes an 
intelligent file processor subsystem; 
system memory; a communications 
processor; an ESDI hard-disk drive; 
a 1.6 megabyte, 5'/4-inch floppy-disk 
drive; a 60-megabyte streaming mag- 
netic tape unit; and an Altos V termi- 
nal. The 80386 processor runs at 16 
MHz with a 32K data and instruc- 
tion cache, an intelligent file proces- 
sor, and an 80387 floating-point 
coprocessor. 

The Altos 386 Series 2000 is avail- 
able in four configurations ranging 
in price from $25,000 to $30,000. 
Reader Service No. 24. 

Altos Computer Systems 
2641 Orchard Pkwy. 

San Jose, CA 95134 

(408) 946-6700 


DDJ 
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Upgrade your technology 


The software technology available to 
programmers of IBM-compatible per- 
sonal computers is truly amazing. And 
newer, more powerful development 
packages appear all the time. But until 
now, finding out about these important 
products has been a difficult and time 
consuming task. 


FREE Buyer’s Guide. The New Pro- 


Noncommissioned Staff. Our courteous 
salespeople are always ready to help 
you. And if you aren't sure about your 
needs, our knowledgeable technical 
people can give you sound, objective 
advice. 


Experience. We've specialized in de- 
velopment software for IBM-compatible 
personal computers since 1984 and 





are experienced at providing a full 
range of quality products and customer 
services. 


How to Get Your Copy. There are three 
ways for you to receive your FREE 
copy of the Programmer's Connection 
Buyer’s Guide: 1) Use the reader service 
card provided by this journal; 2) Mail us 
a card or letter with your name and 


grammer’s Connection Buyers 
Guide contains individual des- 
Criptions of over 500 titles of 
programmer's development 
software by over 150 manu- 
facturers. Each description 
covers major product features 
as well as any software or 
hardware requirements and 
version numbers. In the box on 
the right are some examples of 
the types of descriptions you'll 
find in our Buyer’s Guide. 


No Hidden Charges. The low 
discount prices in our Buyer’s 
Guide are all you pay. We don’t 
charge extra for domestic UPS 
Ground shipping, credit cards, 
COD orders, purchase orders, 
sales tax (except Ohio) or 
special handling (except for 
non-Canadian international 
orders). 


Guarantees. We offer FREE 
30-day no-risk return guaran- 
tees and 30-day evaluation 
periods on most of our 
products. 


Latest Versions. The products 
we Carry are the latest versions 
and come with the same manu- 
facturer'’s technical support as 
if buying direct. 


Large Inventory. We have one 
of the largest inventories of 
programmer's development 
products in the industry. Most 
orders are shipped within 24 
hours. 





The 


P 





Announcing Our 
Super 
Year-end 
SALE 


on selected Microsoft 
Products 
until December 31, 1987 





New Version 5.0 
Microsoft C 
Optimizing Com- 
piler 5.0 
List $450 Ours $269 


Sale Price $259* 


The Microsoft C Optimizing Compiler is a 
high performance, industry- standard C 
language development system. It uses 
many state-of-the-art optimizing techni- 
ques including: in-line code generation; 
loop invariant expression removal; 
automatic register allocation of variables; 
elimination of common subexpressions; 
improved constant folding & value 
propagation; and efficient co ing techni- 
ques covered in the documentation. This 
extensive package also includes the new 
Microsoft Quick Compiler (see separate 
description) that lets you quickly develop 
programs with its integrated environment 
and extremely fast compilation speeds. 
Microsoft C features: library routines that 
implement UNIX System V and most of 
the proposed ANSI standard libraries; ex- 
tremely fast and optimized code genera- 
tion; tive memory models inc eo 
HUGE; mixed models using NEAR, FA 
and HUGE pointers; huge programs up 
to one MB and huge armays larger than 
64K; and source and object compatibility 
with XENIX. The package also includes 
Microsoft CodeView, an advanced source 
level debugger that features: support for 
overlays created with Microsoft Link; Ex- 
panded Memory Specification (EMS) 
support; access to source level and sym- 
bolic debug information from your 
Microsoft of FORTRAN and MASM 
programs; simultaneous view of source 
code and assembly; display of local and 
global variables and expressions; anima- 
tion and single-step; breakpoints and 
watchpoints; code and output screens; 
display of CPU registers and flags; and 
support for keyboard or optional mouse. 
Requires 384K memory. Hard disk 
recommended. Version 5.0. 





SEE ene Sa ae 
New Version 5.0 
Microsoft Macro 

Assembler 
List $150 Ours $93 


Sale Price $89* 


The Microsoft Macro Assembler (MASM) 
is the fastest and most complete as- 
sembler development system ever 
created. Written in Microsoft C, MASM 
assembles programs at a speeds. 
Make your programs run faster by linking 
assembly language subroutines to your 
Microsoft QuickBASIC, C, QuickC, 
FORTRAN or Pascal programs. A broad 
range of examples in the completely 
revised and expanded documentation 
makes it easy to write assembly language 
routines, plus template programs are on- 
line so all you have to do is plug in your 
code and go — MASM takes care of the 
interfacing. There is also a complete 
reference to the instruction set containing 
extensive examples. The Macro As- 
sembler itself has sped up by 25-40% and 
the linker has doubled its speed since ver- 
sion 4.0. Now there is support for the 
80386 and 80387 instruction set. 
Microsoft CodeView, the window- 
oriented, source-level debugger gives 
pe total control over debugging. This 

ighly acclaimed debugger is ideal for 
debugging your assem ly language 
subroutines called from QuickBASIC, C, 
QuickC, Pascal or FORTRAN. Debug 
using your original source code and 
comments. Watch the value of variables 
and expressions change while your 
program executes and view registers and 


flags. 
— 256K memory. Version 5.0. 





*Plus a Special 
Rebate from 
Microsoft 


Purchase any two of the follow- 
ing products before January 31, 
1988 and receive an additional 
$30 rebate directly from 
Microsoft. Or purchase any 
three and receive a $50 rebate: 
e Microsoft COptimizing 
Compiler 


e Microsoft Macro Assembler 
e Microsoft QuickC 


address; or 3) Call one of our 
convenient toll free telephone 
numbers. 


If you haven’t yet received 
your Programmer’s Connec- 
tion Buyer’s Guide, act now. 
Upgrading your programming 
technology could be one of 
the wisest and most profitable 
decisions you'll ever make. 


CALL TOLL FREE 
USA* ooo caae 800-336-1166 
Canada: ...... 800-225-1166 
Ohio & Alaska 

(Collect): .. 216-494-3781 
International: 216-494-3781 
Telex: .......... 9102406879 
Easylink: .......... 62806530 


Programmer’s Connection 
7249 Whipple Avenue NW 
North Canton, OH 44720 


Please turn the page for our 
latest price list and ordering 
information. eel 













e Microsoft QuickBASIC 


rogrammersConnection 


Buyer's Guide. 
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ai-expert systems List Ours 
1st-CLASS by Programs in Motion ...........45. 495 399 
EXSYS Development Software by EXSYS.......... 395 289 
EXSYS Runtime System.................... 600 469 
LEVELS by /nformation Builders ...............4. 685 569 
Logic-Line Series A// varieties hy Thunderstone ..... CALL CALL 
VP EXPERT by Paperback Software ......... New 100 63 
ai- lisp language 
muL!ISP-87 Interpreter by Soft Warehouse .... New 300 199 
muLISP-87 Interpreter & Compiler.......... New 400 269 
Q'Nial Various by MAL Systems ............446. CALL CALL 
Star Sapphire LISP Compiler hy Sapiens.......... 495 429 
TransLISP PLUS from Solution Systems .......... 195 125 
ai- prolog language 
Arity Combination Package ................... 1095 979 
Expert System Development Pkg ............. 295 229 
File Interchange Toolkit.................... 50 44 
PROLOG Compiler & Interpreter ............. 650 569 
Screen Design Toolkit ..................... 50 44 
SQL Development Package ................. 295 229 
Astty- PROLOG MOMMIOUN oo ces cele vessceeaes 295 229 
k,n ee 95 77 
LPA microPROLOG A// Varieties................ CALL CALL 
MPROLOG Language Primer LOG/CWARE......... 50 45 
MPROLOG P500 by LOGICWARE ............... 495 395 
MPROLOG P550 w/Primer by LOGICWARE ....... 220 «175 
Turbo PROLOG dy Borland Intl... 2.0... 6.0.00 106 64 
Turbo PROLOG Toolbox dy Borland Int/........... 100 64 
ai-smallitalk language 
fg PPE or re ee ee ere hr ee 100 84 
EGASVGA Color Option. ... sien cea cccn een 50 45 
ee ee ne ey me me 50 45 
a eer rere ee eee 50 45 
ai- texas instruments 
Arborist Decision Tree Software ............+055 595. 519 
ot ri ra New Version 95 77 
Personal Consultant Easy........... New Version 495 435 
Personal Consultant Image.................---- 495 435 
Personal Consultant Online ................... 995 869 
Personal Consultant Plus ........... New Version 2950 2589 
Personal Consultant Runtime .................. 95 84 
ada language 
AdaVantage GSA-Validated hy Meridian Software... 795 1735 
AdaVantage Utility Packages ................ 50 47 
DOS Environment Package ................. 50 47 
Janus/ADA C Pak by R&A Software............. 95 84 
Janus/ADA D Pak by R&A Software............. 1250 1059 
Janus/ADA ED Pak by R&A Software............ 395 349 
apl language 
BEL FES OG SI isc ie ks oss oe deren 695 495 
APL*PLUS PC Spreadsheet Mgr by STSC ........ 195 139 
APL *PLUS PC Tesla by SISC |. . 66s cos cwkccane CALL CALL 
Pg Bg gg a We” ee re 695 495 
ATLAS*GRAPHICS by STSC .... eect ce ceca 450 329 
Financial/ Statistical Library by STSC ............ 275 = 189 
ge Se a ee eS 95 69 
SERTOAPINES By SISO io .\5 0 ins 2h cs-nnervininy < 895 649 
assembly language 
386 ASM/LINK Cross Asm by Pharlap .......... 495 389 
8088 Assembler w/Z-80 Translator hy 2500AD.... 100 89 
ASMLIB Function Library by BCSoft ............. 49. 1% 
asmTREE 8-7ree Dev System by BCSoft .......... 395 329 
Cross Assemblers Various hy 2500 AD ........... CALL CALL 
EZASM OFC BMC nS 8 65 sae 8 oes Sadek wwe 70 59 
Microsoft Macro Assembler.............. SALE 150 89 
Turbo Debugger by Speedware ..............585 89 79 
Turbo Editasm by Speedware ..............44.. 99 84 
Visible Computer: 8088 by Software Masters ...... 80 64 
basic language 
db/Lib for QuickBASIC by AJS Publishing ......... 139 =119 
Finally hy Komputerwerk ... 2.2... 2.200 eee eee 99 85 
MACE 2 OV WO HOD 6 ccc ccscc cues on cs dune's 55 
Microsoft QuickBASIC 4.0 ............. SALE 99 59 
OBase Relational Database by Crescent .......... 89 79 
A) eS ee 130 ©6109 
QuickPak by Crescent Software .............45- 69 59 
Scientific Subroutine Library by Wiley ........... 125 99 
Screen Sculptor by Software Bottling ............ 125 91 
Siay- Nes Dy MICTOHSD . we versace mensbsess 69 55 
PEE dbs atic we wire sind e Rate enw oeaens’t 100 79 
True BASIC w/Aun-time ........... Special Price 200 99 
Teme GASIC Sis Cree oon os sc Swthns OOrn sins 50 4i 
True BASIC Developer's Toolkit................ 50 41 
Turbo BASIC Compiler by Borland Inti ........... 100 64 
blaise products 
ASYNCH MANAGER Specify C or Pascal ......... 175 = 135 
© DS Fee aide os w Ske woe soe tas 129 99 
KeyPlayer Super Batch Program .............44+ 50 45 
LIGHT TOOLS for Datalight C.... 2.2... ee eee 100 65 
FOAL FOUN es cites viene cumcuk OS cy aeee 125 95 
PASCAL TOGES ©. a5 to eat ces cain ee nee res 100 79 
PASCAL TOOLS :G TOOLS 2 20... ck ices eee ee 175 135 
RUNOFE Tart FOOT 5 ain 55 iti koa wes ees whe 50 45 
FURBG AST iiere Cie od oS eos kes asain 100 79 
BRO © VUE iy ok ate Ch be See thas oe Fer we s 129 99 
TURBO POWER TOOLS PLUS................. 100 79 
VIEW MANAGER Specify C or Pascal............ 275 199 
borland products 
EURERA Equation SONG «5 oc ccecccncdecansaes 167 105 
HONOR IOARONSE oO S5% cendc Miedle s 6 avs eewees 150 99 
PN 6 Alc na) so + comvintcs Sammemes wae 85 57 
ae Tee rere eet es 100 64 
Terbe: Basie Comets... 5:05.05 oc gc ok ee edeoe 100 64 
Turbo Basic Database Toolbox ................. 100 64 
Turbo Basic Editor Toolbox ...................- 100 64 
Turbo Basic Telecom Toolbox.................-- 100 64 
Turbo C Compiler (Ca// for support products) ....... 100 64 
Turbo Lightning and Word Wizard .............. 150 94 


Ti SIs os Shes 5 cs ch es in be 100 
Turbo Lightning Word Wizard................ 70 
Turbo Pascal and Tutor ............ New Version CALL 
a ear es New Version 100 
Si py Bl, . Sere era ye 70 
Turbo Pascal Database Toolbox ................ 100 
Turbo Pascal Developer's Toolkit............... 395 
Turbo Pascal Editor Toolbox..................- 100 
Turbo Pascal Gameworks Toolbox .............. 100 
Turbo Pascal Graphix Toolbox ................. 100 
Turbo Pascal Numerical Methods Toolbox ........ 100 
Uo kat rena 100 
TRE PIMEE SON. Sa a clon eon Siamese ewes ie 100 
c language 
C-terp by Gimpel, Specify compiler ............+- 298 
C Trainer with Book by Catalytix ............005- 122 
DeSmet C w/Debugger & Large case ...........-. 209 
DeSmet C w/Debugger only ..........0025ee0ee 159 
Eco-C88 Modeling Compiler by Fcosoft ...... New 100 
Instant C by Rational Systems... . 2... 66.02 e eee 495 
Lattice C Compiler vers. 3.2 from Lattice ......... 500 
Mark Williams Let's C with FREE csd ............ 75 
Microsoft C Compiler 5.0 w/CodeView ..... SALE 450 
Microsoft QuickC Compiler .............. SALE 99 
Optimum-C by Datalight .....62.....ccscvaccees 139 
Turbo C Compiler by Borland ..............+4+ 100 
Uniware 68000/10/20 Cross Compiler by SOS .... 995 
c utilities 
Blackstar C Library by Sterling Castle............ 125 
C++ by Guidelines w/version 1.1 kernel .......... 195 
c-tree & r-tree Combo by Fairlom .............- 650 
c-tree SAM File Manager ............2.008. 395 
r-tree Report Generator ........... 002 e eee 295 
Csharp Realtime Toolkit by Systems Guild......... 600 
Curses Window Dev Pkg by Aspen Scientific ...... 119 
Wile Simies COME oo es aie eas 650 Farge seal es 289 
dBx dBASE to C Translator by Desktop Al ......... 350 
IN SOMITE BOE on ooo 8 5 hake eine ose 20 wns 550 
Flash-up by Software Bottling ..............+++- 90 
GraphiC Color version by Sci Endeavors........... 350 
HALO Graphics by Media Cybernetics ............ 300 
HALO Development Pkg for Microsoft............ 595 
The HAMMER by OFS Systems ............+++- 195 
PANEL/TC for Turbo C by Roundhill ............. 129 
PANEL Plus by Roundhill .. 0.0... 2.0. cece eee 495 
PC Lint by Gimpel Software ..........0.0000eee 139 
RTC PLUS Fortran to C by Cobalt Blue ........... 450 
Sapiens V8 Virtual Memory Manager ............ 300 
Scientific Subroutine Library by Wiley ........... 175 
TE Text Editor source by Sub Systems .........-. 95 
Vitamin C by Creative Programming ...........+.. 225 
VC Screen Forms Designer............020055 100 
Zview by Data Mgmt Consultants ............++. 245 
cobol language 
COBOLspll by Flexus .........0cceeeeceeeeees 395 
FPLIB for Realia COBOL by BCSoft .............. 149 


Micro Focus COBOL See Micro Focus Section 
Microsoft COBOL See Microsoft Section 


POD OPI COD 6c So a iad oe i ces Sewers 995 
Realia COBOL with RealMENU ................ 1145 
Realie COBOL oi on.ccet lk i oe Pikewe ees US 995 
EMG is Sates tidsics« «2eabes fee Nees 995 
RM/COBOL by Ayan-McFarland .............45: 950 
RM/COBOL 85 by Ayan-McFarland ............. 1250 
RM/NET+5 dy Ryan-McFarland .............+-+- 300 
oe eh, Cee CE EE EEE 395 
SGREEMIO By Marcon «oie .2. 5 6 6 6 oe ones eee 's 400 
screenplay for COBOL by Flexus .............++- 175 
css products 
Combo Package by Custom Software Systems ...... 199 
PC/TOOLS UWIX-like Utilities... 6... eee 49 
PVN EO ois iis cdc cae epesah hunesn deed 149 
database management 
Advanced DBMaster by Macon Software...... New 510 
dBASE Ill Plus by Ashton-Tate ............. New 695 
dblll Compiler by WordTech Systems ........ New CALL 
dbSQL by WordTech Systems ...........05+ New CALL 
dbXL by WordTech Systems ............+- New 169 
dlc. dled cc eee New 149 
The Documenter by Wallsoft .............-. New 295 
ed eer eee err eee New 395 
Paradox 1.1 by Ansa/Borland.............. New 495 
Paradox 2.0 by Ansa/Borland.............. New 1725 
Paradox Network Pack by Ansa/Borland ..... New 995 
OR SP SDE isn cas dee cnt sys dqnne New 349 
Quickcode PLUS by Fox & Geller........... New 295 
Quickindex by Fox & Geller............045. New 149 
Quickreport by Fox & Geller. ...........4.. New 295 
QuickSilver by WordTech Systems .......... New 599 
R:Base 5000 by Microrim............--.--- New 495 
R:Base System V by Microrim.............- New 700 
\ rdb by Robinson-Shafer-Wright ........... New 139 
Tom Rettig’s Library by Jom Rettig & Assoc ... New 100 
Ul Programmer by Wallsoft ..............- New 295 
VP INFO by Paperback Software............ New 100 
debuggers & profilers 
386 DEBUG Cross Debugger by Phar lap ......... 195 
Advanced Trace-86 by Morgan Computing .......- 175 
Codesmith-86 by Visual Age...............555- 145 
GUE e OY SOT ANNONCES ios wad on 6 ese awseds 125 
ge SA ee eee ee 395 
Periscope | with Board by Periscope ...........-. 345 
Periscope I! with NM/ Breakout Switch ........... 175 
Periscope II-X Software only ..............+++- 145 
Periscope Ill 8 MHz version ...............406- 995 
Periscope Ill 70 MHz version ..............---- 1095 
The PROFILER with Source Code by DWB......... 125 
TURBOsmith Source debugger for Turbo Pascal... .. 99 
The WATCHER Profiler by Stony Brook........... 60 
disk utilities 
Back-It by Gazelle Systems ......... New Version 130 
Disk Optimizer by Softlogic Systems ...........:. 60 


895 


129 


115 
55 
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Disk Technician by Prime Solutions ............. 100 
FASTBACK by 5th Generation Systems ........... 179 
Take Two Manager United Software Security .. New 139 
Veache by Golden Bow Systems .............455 50 
Vopt by Golden Bow Systems ...........0.0005: 50 
Vfeature by Golden Bow Systems ............... 80 
Vfeature Deluxe by Go/den Bow Systems ......... 120 
XenoCopy-PC by XenoSoft ........ 0.0 cece eee 80 
dos utilities 
Advanced Norton Utilities..................... 150 
Command Plus by FSP Software .............05. 80 
Desqview from Quarterdeck ..............00055 130 
FANSI-CONSOLE dy Hersey Micro .............. 75 
Mace Utilities Pau/ Mace Software .............. 99 
MicroHelp Utility hy MicroHelp...............+- 59 
Norton Commander by Peter Norton ............. 75 
Norton Utilities by Peter Norton .............---- 100 
OPAL Shel/ Language by Software Factory ........ 99 
Q-DOS Il by Gazelle Systems .........00. 00205 70 
Taskview by Sunny Hill Software ..........6.055 80 
essential products 
Breakout Debugger Only Any /anguage........... 125 
GT ING ii ak Cocky tu kdwwdve oe pew eee 185 
Essential Communications ...................-- 185 
Essential Communications with Break Out ......... 250 
Ecguettial Graphite oo oes kc cscusievac tnt ination 250 
i ia! a ne er eas New 99 
WE SOE TOE ices xd nc nye oh Gens vs New 198 
eed era er eee oe Ee New 99 
with Library Source Code ..........+++4++ New 198 
forth language 
CFORTH Wative Code Compiler by LM/ ........... 300 
FORTH/83 Metacompiler Specify Target ......... 750 
PC/FORTH by Laboratory Microsystems .......... 150 
PC/FORTH+ by Laboratory Microsystems ......... 250 
Programmer's Package #1 by /M/ .............. 250 
Programmer's Package #2 by /M/ .............. 350 
Programmer's Package #3 by LM/ .............. 500 
UR/FORTH Also Available for OS/2 by LM/ ....... 350 
URSEGAEN CRPBBS 6.0 5.0 0555's bad wa was nese 500 
fortran language 
50 MORE: FORTRAN by Peerless Scientific ....... 125 
ACS Time Series by Alpha Computer Service ...... 495 
AUTOMATED PROGRAMMER by KGK Automated... 995 
Essential Graphics by Fssential Software ......... 250 
Forlib-Plus by Alpha Computer Service ..........- 70 
FORTRAN Addendum dy /mpulse Engr .........-- 95 
FORTRAN Addenda by /mpulse Engr.........-.-- 165 
HALO Graphics by Media Cybernetics ...........- 300 
1/0 PRO w/No Limit Library by MEF ............ 250 
Microcompatibles Combo Package.............. 240 
ee ee ee er eer 135 
EO T TEP ET ere rr ree 135 
Microsoft FORTRAN w/CodeView ......... SALE 450 
No Limit Library by MEF Environmental ........... 129 
Numerical Analyst by MAGUS ...............--- 295 
PANEL by Roundhill Computer Systems ..........- 295 
RM/FORTRAN by Ayan-McFarland.............. 599 
RTC PLUS Fortran to C by Cobalt Blue ........... 450 
Scientific Subroutine Library by Wi/ey ........... 175 
Statistician by Alpha Computer Service ........... 295 
ek 4 eee ee eee 295 
i § A eee eee 295 
Strings & Things by Alpha Computer Service ....... 70 
greenleaf products 
Greenleaf C Sampler for QuickC & Turbo ........ 95 
Greenleaf Comm Library .................005- 185 
Greenleaf Data Windows Library ............... 225 
gg er er eer 395 
nn SP Pre Te eeee Tere ee 185 
help utilities 
ELF /COMGE OPUS « . . 5. 0 ccdewies Caxecepes 125 
On-line Help from Opt-Tech ............002000- 149 
SoftScreen/HELP hy Dialectic Systems .......... 195 
lattice products 
Lattice C Compiler ver 3.2 from Lattice........... 500 
with Library Source Code ..........-02000055 900 
C Cross Reference Generator.................- 50 
ee | a ee ee 200 
C-Food Smorgasbord Function Library...........- 150 
pelt SHE CUES oes 5 ive as Vsmewedabewe 300 
C-Sprite Source Level Debugger ...... Special Offer 175 
Caress Screw MGNRGEl oo 5 side ccdedcges 125 
EE SONER CUE «oa oi hs deine BWRE pee 250 
I a hte kik die wk de HO FST a PES ww 250 
ee eh re ere reer yl SS 
IE ore Serena px wan Race kk Ramen > 750 
IT REET GOO i oeincls a j0%e circles Sma Des » 1500 
OE UN ois cow ceross cee ssicacnve 195 
RPG I! Combo A// three items below............- 1100 
RPG I! Compiler Vo Aoyalties...............- 750 
SEU Source Entry (AMEE ou 60's sé oe viene eevee 250 
ey Serr 250 
Screen Design Aid Utility for RPG i/ ............. 350 
SecretDisk II Encryption Utility... 0.0.6.6... eee 120 
SideTalk Resident Communications .........-...- 120 
SSP/PC Scientific Subroutine Library .........-.- 350 
Text Management Utilities .................4-. 120 
metagraphics products 
LightWINDOW/C for Datalight C ............--- 95 
MetaWINDOW Wo Aoyalties...............455. 195 
MetaWINDOW/PLUS ....................--- 275 
TurboWINDOW/C for Turbo C ...... 2.22 ee eee 95 
TurboWINDOW/ Pascal for Turbo Pascal .........- 95 
micro focus products 
Micro Focus COBOL/2 ..................---- 900 
Micro Focus Level 11 COBOL w/Animator......... 495 
Rept TN APR occa sa. galesane-ece one 320s Wie,n ae 349 
aaa nits Gates Sone aime 195 
Micro Focus Level 1! COBOL/ET for UNIX........ CALL 








Milere Feces PO-CICS oc ecw cecees New 1495 
MINCE Soci cso ect ss cewcsees New 1595 
Micro Focus Personal COBOL ................. 149 
Micro Focus Professional COBOL .............. 2000 
Micro Focus VS COBOL/XENIX ............... 1495 
Micro Focus Support Products: 
COBOL/IO Ad hoc Report Writer ............. 495 
COBOL/IQ for DOS 3.X Networks ............. 995 
CET ces rin attains ceeneaecemiwes 295 
CS 995 
microport products 
386 Unlimited License Kit .................... 249 
AT Unlimited License Kit ..................... 249 
DOSMerge286 Aun DOS and UNIX together ....... 149 
DOSMerge386 Aun DOS and UNIX together ....... CALL 
System V/386 Combination................... 799 
386 Runtime System ...................... 199 
386 Software Development System ........... 499 
Text Preparation System ................... 199 
System V/AT Combination.................... 549 
AT Runtime System ..................0000: 199 
AT Software Development System ............ 249 
Text Preparation System ................... 199 
microsoft products 
Microsoft BASIC Compiler for XEM/IX ............ 695 
Microsoft BASIC Interpreter for XEMW/X........... 350 
Microsoft C Compiler 5.0 w/CodeView...... SALE 450° 
Microsoft COBOL Compiler with COBOL Tools.SALE 700 
EE 6 6.455 beset ee se seer ecsaune SALE 995 
PCTORUL ERCO . ons ccc sees vcccccuas New 495 
Microsoft FORTRAN Optimizing Compiler... SALE 450 
Microsoft FORTRAN for XEMIX................. 695 
Microsoft Learning DOS ..................... 50 
Microsoft Macro Assembler.............. SALE 150 
Microsoft Mouse Specify Serial or Bus ........... 150 
with Microsoft Windows ..............2.005. 200 
oo ee ee 175 
Microsoft Pascal Compiler............... SALE 300 
co a ee ere SALE 695 
Microsoft QuickBASIC 4.0 ............. SALE 99 
Micresoft Quick ..... 0... cece eee SALE 99 
ee cee EEE Pere 99 
Microsoft Windows Development Kit ............ 500 
cn. eS ere eT ee 450 
Microsoft Works ....................... New 195 
mks products 
EE lis os'kahicatwa anems ache oe wales 75 
MKS RCS Revision Control System .......... New 189 
MKS Toolkit with MKS V/ Editor ................ 139 
MKS Trilogy with AWK, CRYPT & Korn Shell... New 119 
MKS VI Editor by MKS... 6.6 cece eee 75 
modula-2 language 
LOGITECH Modula-2 Development System........ 249 
Modula-2 Compiler Pack ................... 99 
NE SRN GAS 4 fb ok wwonse er cekseae ve 169 
LOGITECH Modula-2 ROM Pkg................ 299 
LOGITECH Modula-2 Window Pkg.............. 49 
Macro2 Macro preprocessor by PM/ ............. 89 
poeple CR OO EET Te eee 89 
Repertoire by PM/ .... 2.2... ec cc cece 89 
Science & Engrg Tools by Quinn-Curtis........... 75 
Universal Graphics Library by Quinn-Curtis ........ 130 
mouse products 
LOGIMOUSE BUS with PLUS Pkg by LOGITECH .... 119 
with PLUS & PC Paintbrush ...... 2... cc cues 149 
with PLUS & CAD Software... ............... 189 
with PLUS & CAD & Paint... 0... ccc eens 219 
with PLUS & First Publisher ..............4.4. CALL 
LOGIMOUSE C7 with PLUS Pkg, Specify Connector... 119 
with PLUS & PC Paintbrush... 2... 0.6.0. e ee. 149 
with PLUS & CAD Software... 2.2.02... 6. 0ees 189 
with PLUS & CAD & Paint... 2.2... 2. ccc cee ee 219 
with PLUS & First Publisher ............2.44. CALL 


Microsoft Mouse See Microsoft Section 
other languages 


ACTOR by Whitewater Group .................. 495 
CCS MUMPS A// varieties by MGlobal ........... CALL 
Marshal Pascal by Marshal Language Systems ..... 189 
Pascal-2 by Oregon Software ...............45. 395 
Personal REXX by Mansfield Software ........... 125 
SNOBOL4+ by Catspaw ..................045. 95 
other products 
Carbon Copy Plus by Meridian Technology ........ 195 
Dan Bricklin's Demo Pgm by Software Garden ..... 75 
Dan Bricklin's Demo Tutorial ................ 50 
Fast Forward by Mark Williams ................ 70 
Instant Replay by Nostradamus ................. 150 
MicroTEX 7ypesetting from Addison-Wesley ....... 295 
Pe NR rec wis a paderwesenean New CALL 
muMATH by Soft Warehouse ............. New 300 
Net-Tools by BCSoft.. 2... cee 149 
Norton Guides Specify Language................ 100 
OPT-Tech Sort by Opt-Tech Data Proc ........... 149 
PC/TOOLS dy Custom Software .............44. 49 
Resident Expert Specify /ang by Santa Rita .... New 59 
Screen Machine by MicroHelp ................. 79 
Ts ee 139 
Phoenix products 
Pasm86 Macro Assembler version 20............ 195 
Pdisk Hard Disk & Backup Utility... .........644. 145 
Pfantasy Pac Phoenix Combo ..............605- 995 
Pfinish Execution Profiler ............0 202 e eee 395 
Pfix8Gplus Symbolic Debugger .............+45. 395 
PforCe Specify C Compiler ...........-2.4-005- 395 
PforCe++ Specify C Compiler and C++ ........... 395 
Plink86plus Overlay Linker .... 2.2... eee eee 495 
Pmaker Make Utility... 2... 2 eee 125 
Pmate Macro Text Editor ................2045. 195 
PU CO, Nene whale ie shoapinis outa tues 295 
Ptel Binary File Transfer Program ............... 195 


169 


polytron products 


PolyBoost Software Accelerator ..... Special Price 80 54 
PUNE MERE 6 Behr as F856 cb ou Xess’ 99 72 

PolyDesk Ill Archivist .................000 50 42 

PolyDesk Ill Cryptographer ................. 50 42 

ge i ee 70 52 
PolyLibrarian Library Manager ................. 99 89 
PolyLibrarian Il Library Manager................ 149 +129 
PolyMake UW/X-like Make Facility............... 149-129 
re pre Special Price 149 105 
Polytron C Beautifier ....................008. 50 45 
PolyXREF Complete Cross Ref Utility ............ 219 185 
PolyXREF One /anguage only ...............44. 129 = 109 
PVCS Corporate Version Contro/ System.......... 395 329 
PR NIE cre Ghd ME Fos oes de heod names 149 +129 


program mgmt utilities 
Interactive EASYFLOW by Haventree .. New Version 150 125 


Print by Software Directions...............0.. 89 84 
Quilt Computing Combo QMake & SRMS.......... 250 199 
Saplews ROARE .. oc once diessccsdwess i aurora 179 = 155 
Sapiens MAKE & V8 ........................ 439 379 
Source Print by A/debaran labs ................ 97 75 
TLIB Version Control System by Burton ........... 100 89 
Tree Diagrammer hy A/deharan Labs ............ 77 67 
sco products 
Complete XENIX System V dy SCO.............. 1295 994 
Development System ...................... 595 499 
Operating System Specify XT or AT............ 595 499 
Text Processing Package................... 195 144 
SUREEESOY s ii8i50x 5 ae-tn bose ules ess enes 595 449 
SCO Professional 7-2-3 Workalike for XENIX....... 795 595 
Lar pte OE ee Oe ee ee 595 495 
XEWNIX System V 386 by SCO.................. CALL CALL 
softcraft products 
Btrieve /SAM Mor with No Royalties ............. 245 38184 
Xtrieve Query Utility... 0... ccc eee 245 184 
Report Option for Xtrieve ................0.. 145 99 
Btrieve/N for Networks .............00 ccc eeee 595 454 
ONES rim ohne bawnwme ds dens bev ecess 595 454 
Report Option/N for Xtrieve/N............... 345 269 
Hee 006i edd wh Ps eee cena VP onwen wer New 795 CALL 
text editors 
Brief & dBrief Combo from Solution Systems ...... 275 CALL 
eign COLO Cn ere 195 CALL 
dBrief Customizes Brief for dBASE Ill. .......... 95 CALL 
et Ah J, Se oe Tere ee 75 65 
Epsilon Emacs-like editor by Lugav.............. 195 147 
KEDIT by Mansfield Software .................. 125 98 
Micro/SPF by PHASER SYSTEMS .............. 175 139 
PON EE occ awnsvegerannes exsecsoaena 450 269 
PC/VI by Custom Software Systems ............. 149 99 
SPF/PC by Command Technology Corp........... CALL CALL 
Vedit Plus by CompuView ............00000005- 185 128 
turbo pascal utilities 
ALICE /nterpreter hy Software Channels .......... 95 66 
AZATAR DOS Toolkit by AZATAA.......... New 95 85 
DOS/BIOS & Mouse Tools by Quinn-Curtis........ 75 67 
Flash-up by Software Bottling.............. New 89 78 
Flash-up Developer's Toolbox.............. New 49 45 
MACH 2 for Turbo Pascal by Micro Help .......... 69 55 
MetraByte D/A Tools by Quinn-Curtis............ 100 89 
Science & Engrg Tools by Quinn-Curtis........... 75 67 
Screen Sculptor by Software Bottling ............ 125 91 
Speed Screen by Software Bottling.............. 35 32 
System Builder by Royal American .... New Version 150 129 
reer TNER oa osc koh axe ss Saag dens 100 89 
Report Builder ................. New Version 130 115 
TDebugPLUS dy TurboPower Software ........... 60 49 
Tmark by Tangent Designs ...............0005% 80 69 
Turbo EXTENDER dy JurboPower Software........ 85 64 
Turbo OPTIMIZER by TurboPower .............. 75 65 
mith Somce Code ... 0. ccc ce nsccecscvnses 125 98 
Turbo Professional by Sunny Hill ............... 70 45 
TerbeHAL® from IMS! o.oo cee ecccseccccas 95 75 
TurboPower Utilities hy TurboPower............. 95 78 
TurboRef by Gracon Services ..............25- 50 35 
TURBOsmith Source Debugger by Visual Age ...... 99 89 
Universal Graphics Library by Quinn-Curtis ........ 130 =6119 
wendin products 
Operating System Toolbox .................... 99 79 
PCNX Operating system ..... 6... cece cece eee ee 99 79 
PCVMS Similar to VAX/VMS ...........000005- 99 79 
Wendin-DOS Multitasking DOS... .........0005. 99 85 
Wendin-DOS Application Developer's Kit......... 99 85 
XTC Text Editor w/Pascal source ............... 99 75 
xenix/ unix products 
Btrieve /SAM File Mor by SoftCraft .............. 595 454 
C-terp by Gimpel, Specify compiler .............. 498 379 
c-tree /SAM Mor by FairCom ............000085 395 315 
dBx with Library Source by Desktop Al............ 550 419 
DIRECTORY SHELL 286 by American Mgmt Sys.... 349 295 
DIRECTORY SHELL 386 byAmericanMgmtSys..New 495 415 
DOSIX Console Version by Data Basics ........... 400 349 
DOSIX User Version hy Data Basics ............. 200 179 
Lugaru 7ext Foitor by Epsilon .............. New 195 147 


Micro Focus Products See Micro Focus Section 
Microport Products See Microport Section 
Microsoft Products See Microsoft Section 


PANEL Plus by Roundhill Computer Systems ....... 795 535 
REAL-TOOLS Binary Version by PCT ............. 99 89 
Library Searet VOR oon ice cei ct cece 599 539 
Complete Source Version ...........0000000- 999 729 
RM/COBOL dy Ayan-McFarland ................ 1250 949 
RM/FORTRAN by Ayan-McFarland.............. 750 549 


SCO Products See SCO Section 


Terms are subject to change. 
©1987 Programmers Connection, Inc. 
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LOWEST PRICES 
Due to printing lead times, some of our current 
prices may differ from those shown here. Call for 
latest pricing. 

FREE SHIPPING 
Orders within the USA (including Alaska & Hawaii) 
are shipped FREE via UPS. Express shipping is 
available at the shipping carrier's standard rate 
with no rush fees or handling charges. To avoid 
delays when ordering by mail, please call first to 
determine the exact cost of express shipping. 


CREDIT CARDS 
VISA and MasterCard are accepted at no extra 
cost. Your card is charged when your order ‘is 
shipped. Mail orders please include credit card 
expiration date and authorized signature. 


CODs AND PQs 
CODs and Purchase Orders are accepted at no 
extra cost. No personal checks are accepted on 
COD orders. POs with net 30-day terms (with initial 
minimum order of $100) are available to qualified 
US accounts only. 


SALES TAX 
Orders outside of Ohio are not charged state sales 
tax. Ohio customers please add 6% Ohio tax or 
provide proof of tax-exemption. 


INTERNATIONAL ORDERS 

Shipping charges for International and Canadian 
orders are based on the shipping carrier's standard 
rate. Since rates vary between carriers, please call 
or write for the exact cost. International orders 
(except Canada), please include an additional $10 
for export preparation. All payments must be made 
with US funds drawn on a US bank. Please include 
your telephone number when ordering by mail. Due 
to government regulations, we cannot ship to all 
countries. 


VOLUME ORDERS 
Volume orders may qualify for additional discounts. 
Call us for special pricing. 


SOUND ADVICE 
Our knowledgeable technical staff can answer 
technical questions, assist in comparing products 
and send you detailed product information tailored 
to your needs. 
30-DAY GUARANTEE 
Most of our products (excluding books) come with 
a 30-day documentation evaluation period or a 
30-day return guarantee. Please note that some 
manufacturers restrict us from offering guarantees 
on their products. Call for more information. 
MAIL ORDERS 
Please include your telephone number on all mail 
orders. Be sure to specify computer, operating 
system and any applicable compiler or hardware 
interface(s). Send mail orders to: 
Programmer’s Connection 
7249 Whipple Ave. NW 
North Canton, OH 44720 


BRR Bier eontetttelpencnale 800-336-1166 
CANADA 800-225-1166 
OHIO & ALASKA (Collect) 216-494-3781 
Li: Sen en tees 9102406879 
EASYLINK 62806530 
INTERNATIONAL 216-494-3781 


CUSTOMER SERVICE .. 216-494-8899 
Hours: Weekdays 8:30 AM to 8:00 PM EST. 











emember the good old days 

when ordinary people were 
afraid of computers? Then high tech 
became trendy. I wouldn't be sur- 
prised if Helen Gurley Brown's Cos- 
mopolitan editorial this month 
began, “I just love operating sys- 
tems, don't you? They're so earthy 
and fundamental. And 1987 was 
_ such an OS-some year!” 
And Helen would be right; 1987 
was OS-some. Microsoft and IBM 
revealed the master plan for the 
timed release of OS/2, the operating 
system for the 1990s, complete with 
developer's kits and seminars, and 
began delivering the pieces right on 
schedule. 

Then, just when you thought that 
DOS was a stable development envi- 
ronment (OS-sified?), Microsoft and 
a cast of thousands announced (1) 
the Lotus/Intel/Microsoft Expanded 
Memory Specification (give a point 
to Quarterdeck) and (2) Windows/ 
386 (take it away again). Now, 
modulo a few fatal bugs that would 
undoubtedly be fixed in the next 
release, you could stick code as well 
as data up above 640K, run more 
and bigger TSRs, switch instantane- 
ously among existing applications; 
here was multitasking before OS/2. 

It wasn’t immediately obvious just 
what effect the release of Windows/ 
386 would have on the reception of 
OS/2. It did seem that the peculiar 
benefits of OS/2 would be realized 
only with the arrival of OS/2-specific 
software, emphasizing inter-applica- 
tion communication or intra-appli- 
cation multitasking. And it de- 
pressed the Microsoft OS/2 develop- 
ers, who longed to forget the 286 
processor and get on with the real 
thing, OS/2/386, before Intel released 
the 486 and really depressed them. 

While we were all waiting for OS/2, 
a few companies went ahead with 
386 tools, including Phar Lap, Meta- 
Ware, Softguard, and The Software 





160 


SWAINE'S FLAMES 





Link. Compaq offered a version of 
DOS that eliminated DOS's disk-file 
size limitations. And Digital Research 
delivered Concurrent DOS 386, a 
DOS 3.3-compatible multiuser, multi- 
tasking windowing operating system 
for 386 machines. 

In that other universe, Apple re- 
leased Multifinder, allowing users to 
switch smoothly between existing 
Mac applications. But wait; there's 
more. 

Meanwhile, a number of develop- 
ments brought Unix into promi- 
nence as an operating system for 
personal computers. There was the 
narrowing power gap between per- 
sonal computers and workstations 
(and the entrenchment of Unix on 
engineering workstations). There 
were the steps toward standardiza- 
tion seen in X/Open and IEEE Posix, 
and the movement toward conver- 
gence of the Berkeley and AT&T 
versions. Although they flaunted stan- 
dardization efforts, you wouldn't 
want to discount IBM's endorse- 
ment of Unix with its AIX (to be 
available on the RT, PS/2, and System 
370), and Apple’s ditto with A/UX. 
Nor would you want to discount the 
influence of Unix supporters Sun 
and NeXT, either, or all those sex, 
drugs, and Unix buttons at the Hack- 
ers’ Conference. Then there was the 
growing support for the Unix graphi- 
cal interface, Xwindows. 

With the major operating systems 
all moving toward some form of mul- 
titasking and all providing some sort 
of windowing user interface, what 


the world was coming to need, | 


many believed, were tools to ease 


the development process _ for 
window-oriented software, and to 
make it easier to port code across 
windowing environments. The White- 
water Group did well pitching its 
object-oriented language, Actor, as a 
tool to make Windows development 
easier, and began work on their Mac 
version. 

Michael Bentley saw the same 
need. While reviewers gushed over 
Danny Goodman's book on Bill At- 
kinson’s Hypercard (a thorough and 
readable book about an interesting 
product), Michael Bentley's The View- 
port Technician, which promised 
not only to show how to develop 
code portable across windowing 
environments, but how to make that 
portable code efficient, got little 
press. Did the book deliver on its 
promise? Only someone who had 
developed code for the Amiga, GEM, 
Windows, and the Mac could say. 


Odds and ends: 

Contrary to Allen Holub's expecta- 
tions, Microsoft did not deliver 
Quick C when promised, any more 
than Borland delivered Turbo C 
when promised. 

The third edition of Daniel Remer 
and Stephen Elias’s Legal Care for 
Your Software is now out. I’m not 
convinced that the authors have 
done their job with respect to the 
tricky area of ownership of reusable 
code in work done for hire, but 
generally this is a good first book in 
the legal issues in software develop- 
ment and sale. It’s published by 
Noio. Press, 950 Parker Street, 
Berkeley, CA 94710. 


Waele. Srsodg 


Michael Swaine 
editor-in-chief 





Dr. Dobb’s Journal, December 1987 


How A 


C Programmer 
Became A Screen St: 





Screens, the Visible Part 
of Your Program. 


A program is often judged by how well 
the screens are executed. However, 

the real creativity lies in what goes on 
behind the screens. 


ScreenStar is a product that allows your 
real creativity to light up the screen. It 
reduces costly screen, window, and data 
validation development time. 


You Take the Bows, We 
Write the Code. 


Our natural drawing commands allow 
you to paint any screen imaginable. 
Press one key when you are satisfied and 
ScreenStar produces concise, commented, 
ready-to-compile code. This allows 
immediate testing of the I/O screens, 
including smooth, even scrolling 
between multiple screens. 





Create or capture complex screens with 
data-entry filters built in. 


If all ScreenStar did was turn screens 
into code it would be a useful tool. Yet 
ScreenStar also permits a wide range of 
field types. Some of the choices include 
date, alphanumeric, telephone, yes/no, 
dollar, time and user-definable fields. 


Other valuable data-entry filters are 
built in, such as required field, display 
only, and many others. All screen fields 
are generated with error-checking routines. 
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ScreenStar is a trademark of Essential Software Inc. 
Dan Bricklin’s Demo Program is a trademark of Software Garden Inc. 


ScreenStar Not Only Captures 
Your Imagination, 
It Captures Screens. 


The memory-resident capture program 
converts any screen into a ScreenStar 
file in seconds, including those generated 
by programs like Dan Bricklin’s Demo 
Program. 


ScreenStar Sets the Stage 
for Windows. 


ScreenStar comes with a complete 
window generating library. You design 
the help screens and pop-up windows. 
Essential ScreenStar windowing 
functions tie them together in one 
smooth package. 


Curtain Call. 


They may not ask for your autograph, 
but they will want to know how you did 
those screens. Screenstar is more than a 
screen-painting program. It is a 

screen processor. No professional 
programming environment will 
be complete without 
this product. 


We know you will enjoy 
using ScreenStar. However, 
should you give it less than 


rave reviews, return it ee 
within 30 days for a full = 


refund. 





pueeeeeen 





* Interactive screen painting and 
subsequent code generation. 


* Multiple screen design and scrolling. 


* TSR screen capture program, works 
with any program including Dan 
Bricklin’s Demo Program. 


* Complete window design including 
overlapping window functions. 


* Screens are compressed into data 
structures, and remain a permanent part 
of the program. No messy data files to 
look for. 


Price - $99 


W/Source add $99 


Audition Our Product 
Today. Call: 


Iai 





(201) 762-6965 


Essential Software 

South Orange Plaza 

76 South Orange Ave., Suite 3 
South Orange, NJ 07079 



























Whatever dialect of IBM you need to speak, 
CROSSTALK® Mk. 4 makes the connection. 


Now, one program does the job that used to require several. 
CROSSTALK® Mk. 4 allows high-speed direct communications 
between PCs and minicomputers, or (with an IRMA™ board) 
between your PC and an IBM Mainframe, or (with Smart Alec™) 
between your PC and IBM System 3x’s. If you like, CROSSTALK 
can support all of these sessions (and others) simultaneously, 
and display each session in its own window. 
CROSSTALK Mk. 4 emulates all the terminals you're likely 
to find useful. That includes IBM 3101 (page and character 
modes), IBM 525x, IBM 529x, IBM 327x, as well as many 
popular async terminals like the DEC VT100 and VT220 
series. CROSSTALK Mk. 4 includes the powerful CASL™ 
programming language, which allows you to automate 
communications applications quickly and easily. 
So if you’re used to thinking of CROSSTALK just to 
use with a modem, you’re missing some important 
connections. Ask your dealer for details, or write: 


eleer Digital Communications Associates, Inc. 
1000 Holcomb Woods Parkway / Roswell, Georgia 30076 


1-800-241-6393 CR O CT ALK’ 


COMMUNICATIONS 
WY 


CROSSTALK and DCA are registered trademarks of Digital Communications 
Associates, Inc. IRMA, Smart Alec and CASL are trademarks of Digital Communi- 
cations Associates, Inc. IBM is a registered trademark of International Business 
Machines Corp. DEC is a registered trademark of Digital Equipment Corp. 
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